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ABSTRACT 


The  United  States  Marine  Corps  accomplishes  its  mission  “to  put  the  right 
Marine  in  the  right  place  at  the  right  time  with  the  right  skills  and  quality  of  hfe” 
in  a  variety  of  ways.  One  of  the  information  systems  assisting  the  Marine  Enlisted 
Assignments  branch  is  the  Recruit  Distribution  Model  (RDM).  This  thesis  proposes 
changes  to  the  RDM  user  interface,  data  management,  assignment  model,  and  anal¬ 
ysis  capability.  With  the  use  of  business  process  reengineering,  process  modeling, 
mathematical  modehng,  and  database  design  a  fully  functional  prototype  has  been 
developed  to  address  each  identified  change  proposal.  This  reengineered  system  in¬ 
cludes  numerous  innovations  such  as  an  intuitive  navigational  scheme  using  switch¬ 
boards,  and  the  elimination  of  manual  data  entry  for  data  already  available  in  the 
system.  It  also  provides  a  number  of  significant  contributions  beneficial  to  the  USMC. 
For  instance,  the  reengineered  system  allows  the  user  to  objectively  analyze  different 
results  by  comparing  four  different  objective  measures,  and  its  mathematical  model 
uses  commercial-off-the-shelf  products  eliminating  a  proprietary  solver.  All  these 
changes  will  empower  managers  to  effectively  and  efficiently  manage  the  assignment 
of  recruits  in  order  to  meet  the  challenges  of  the  21st  century. 
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I. 


INTRODUCTION 


A.  THESIS  PURPOSE 

The  main  pvirpose  of  this  thesis  was  to  reengineer  a  United  States  Marine 
Corps’  Manpower  Assignment  model  concerned  with  the  distribution  of  recruits  to 
schools.  This  model  is  called  the  Recruit  Distribution  Model  (RDM)  [Ref.  1]. 
Throughout  this  thesis,  the  RDM  is  addressed  as  either  RDM  or  the  old  system. 

Additionally,  an  important  purpose  of  this  thesis  was  to  build  a  functional  pro¬ 
totype  of  the  reengineered  RDM.  The  new  system  is  called  the  Recruit  Distribution 
Decision  Support  System  (RDdss).  It  demonstrates  the  functionality  of  the  reengi¬ 
neered  RDM.  Throughout  this  thesis,  the  RDdss  is  addressed  as  either  RDdss  or  the 
new  system. 

The  majority  of  this  thesis  is  devoted  to  a  discussion  of  the  RDdss.  As  nec¬ 
essary,  the  RDM  is  discussed.  The  following  section  is  a  general  discussion  designed 
to  set  the  stage  for  understanding  the  rest  of  the  thesis.  It  provides  a  problem  de¬ 
scription  of  recruit  distribution  in  the  United  States  Marine  Corps  (USMC).  The  last 
section  of  this  chapter  discusses  the  significant  contributions  of  this  thesis. 

B.  GENERAL  PROBLEM  DESCRIPTION 

Recruit  distribution  in  the  USMC  is  the  process  that  assigns  recruits  to  an 
entry  level  school  (ELS)  leading  to  a  mihtary  occupational  specialty  (See  Figure  1). 
These  assignments  axe  made  about  48  times  a  year,  during  the  last  week  of  Marine 
Corps  Recruit  Depot  (MCRD)  training.  In  this  ending  period  of  the  MCRD,  the 
recruits  are  facing  the  “Crucible,”  which  is  the  final  wicket  a  recruit  endures  before 
officially  becoming  a  Marine.  Consequently,  the  use  of  the  titles  recruit  and  Marine 
are  used  interchangably  in  this  paper. 

For  at  least  two  reasons,  this  assignment  process  is  a  critical  manpower  func¬ 
tion.  First,  a  Marine’s  military  occupational  specialty  (MOS)  ultimately  determines 
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the  member’s  career.  Therefore,  it  is  in  the  best  interest  of  both  the  Marine  and 
the  USMC  that  a  school  assignment  matching  the  Marine’s  desire  is  made.  Second, 
the  success  obtained  by  a  service  member  during  his  or  her  time  in  the  USMC  is 
partially  based  upon  successful  completion  of  their  ELS,  where  a  pattern  of  success 
is  estabhshed.  Therefore,  a  school  assignment  maximizing  the  chances  of  the  Marine 
completing  their  training  is  important.  So,  fulfilling  the  Marine’s  desire  and  matching 
him  or  her  to  an  MOS  (i.e.  ELS)  that  fits  their  personal  characteristics  is  critical  to 
the  overall  health  of  the  USMC,  making  the  assignment  process  a  critical  manpower 
function  [Ref.  2]. 

Fulfilling  the  desire  of  the  Marine  is  accomplished  through  the  use  of  a  contract 
guarantee.  This  is  called  a  program  enlisted  for  (PEF),  and  is  specified  during  the 
recruiting  process.  For  instance,  a  PEF  =  19  is  the  “Tank  and  Assault  Amphibian 
Option.”  There  are  currently  two  ELS’s  associated  with  this,  “MlAl  Tank  Crewman” 
and  “Assault  Amphibian  Crewman.”  So,  a  Marine  who  chose  the  PEF  =  19  is  a 
possible  candidate  for  these  two  schools  and  no  others. 

Once  the  Marine’s  school  options  are  known,  a  Marine-to-school  fit  is  deter- 
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mined  for  each  of  these  schools  (See  Chapter  III,  Section  B  for  details).  This  fitness 
determination  is  partly  made  by  looking  at  each  ELS’s  minimum  eligibility  require¬ 
ments,  which  are  call  mandatory  properties.  This  term  “property”  is  used  as  defined 
by  Webster’s  Ninth  New  Collegiate  Dictionary:  “a  quality  or  trait  belonging  and 
especially  peculiar  to  an  individual  or  thing.”  Examples  are  Age  >  18,  Clerical  >= 
80,  and  Electrical  >=  95.  The  meaning  of  the  first  example  is  obvious.  The  other 
two  are  based  on  test  scores  from  the  Armed  Services  Vocational  Aptitude  Battery 
(ASVAB)  test. 

In  addition  to  the  mandatory  properties,  most  schools  also  specify  desirable 
properties.  A  desired  property  is  the  same  as  a  mandatory  property,  except  they 
are  not  prerequisites  for  attending  the  school.  For  example,  the  Traffic  Management 
Coordination  school  desires  Marines  with  a  Clerical  score  of  at  least  100.  So,  a  desired 
property  of  Clerical  >=  100  is  specified  for  this  ELS. 

By  using  the  information  obtained  firom  the  PEF,  mandatory  and  desired 
properties,  a  fitness  matrix  is  generated.  This  shows  the  fit  of  every  Marine  to  every 
school  he  or  she  is  eligible  for.  Since  there  are  about  100  schools  and  on  average  700 
Marines  considered  for  every  run,  this  matrix  has  the  potential  of  70,000  matches. 

However,  the  matrix  size  is  actually  bigger.  This  is  because  each  of  the  schools 
is  broken  down  by  classes.  Some  ELS’s  have  a  class  starting  each  week,  others  every 
month,  and  others  every  quarter.  Over  a  given  year,  these  classes  total  about  1,800. 
Following  the  practice  of  the  USMC,  only  the  classes  over  the  next  3-4  months  are 
considered  during  the  assignment  process  (see  Figure  2).  Therefore,  the  fitness  matrix 
is  increased  to  a  potential  size  of  350,000. 

The  fact  that  the  school  classes  start  at  different  times  throughout  the  year 
and  that  the  assignment  process  is  only  conducted  48  times  a  year  (normally  this 
occurs  on  friday)  causes  the  “3-month  look  ahead”  in  the  model  and  has  implications 
important  to  the  USMC.  The  concern  is  school  seats  which  never  get  filled.  Each 
seat  is  prepaid,  guaranteeing  its  availability  to  the  USMC.  This  means  every  vacant 
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Figure  2.  Assigning  Marines  to  School  Classes 


spot  is  potentially  a  lost  resource  to  the  USMC.  Therefore,  in  addition  to  the  Marine- 
to-school  fitness  concern,  there  is  also  the  concern  of  filling  all  available  school  seats 
before  their  report  date  is  passed. 

Another  concern  is  the  problem  of  unassigned  Marines.  There  are  numerous 
reasons  why  they  may  not  get  assigned.  Maybe  the  only  school  class  the  Marine 
was  eligible  for  is  already  full.  Or,  possibly  he  or  she  is  not  qualified  for  any  of  the 
school’s  promised  by  their  PEF.  A  third  possibihty  is  errors  in  the  data  provided 
to  the  assignment  process.  Regardless  of  the  cause,  it  requires  identification  and 
corrective  action. 

Finally,  a  discussion  of  the  internal  and  external  stakeholders  associated  with 
the  USMC  recruit  distribution  is  given.  Internally,  there  are  the  USMC  and  the 
recruits.  Since  their  concerns  were  discussed  above,  they  are  not  given  any  further 
consideration.  Externally,  there  is  the  contractor  Decision  Support  Associates,  Inc. 
(DSAI)  who  has  maintained  and  upgraded  the  RDM  for  over  30  years.  They  also 
maintain  about  eight  other  major  systems  for  the  USMC.  For  their  services,  the 
USMC  pays  a  significant  amount  of  money  each  year.  Additionally,  DSAI  has  pro¬ 
prietary  software  in  some  of  these  systems,  which  has  locked-in  the  USMC  to  this 
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company.  Besides  the  contractor,  there  is  one  last  significant  stakeholder,  the  Amer¬ 
ican  taxpayer.  In  a  time  of  increasing  fiscal  constraints  and  shrinking  budgets,  it  is 
imperative  that  wise  decisions  are  made  in  regards  to  assigning  Marines  to  ELS’s. 
The  American  taxpayers  expect  nothing  less. 


C.  SIGNIFICANT  CONTRIBUTIONS 

Four  significant  contributions  beneficial  to  the  USMC  have  been  made  in  this 
thesis.  A  detailed  discussion  of  these  is  given  throughout  the  next  three  chapters. 
Here,  we  list  and  smnmarize  the  contibutions. 

•  Analysis  and  articulation  of  the  recruit  distribution  process  -  by  interviewing 
USMC  and  DSAI  personnel,  reviewing  available  documentation,  and  oper¬ 
ating  the  RDM  we  were  able  to  articulate  an  understanding  of  the  recruit 
distribution  process  using  IDEF  process  modehng.  Additional  data  modeUng 
was  articulated  in  a  third  normal  form  relational  schema  [Ref.  3]. 

•  Development  of  a  mathematical  model  -  by  analyzing  the  assignment  process, 
criteria,  and  constraints,  USMC  policies  and  objectives,  a  mathematical  model 
for  the  new  system  was  developed. 

•  Fully  functional  prototype  -  an  intuitive  and  easy  to  understand  new  sys¬ 
tem  that  seamlessly  interfaces  with  the  old  system  was  built.  It  provides  an 
objective  means  of  comparing  assignment  results  of  both  systems,  and  was 
developed  using  commercial-off-the-shelf  (COTS)  software  applications. 

•  Elimination  of  the  proprietary  solver  and  associated  contractor  lock-in  -  this 
was  accomplished  by  replacing  the  proprietary  solver  with  two  COTS  appli¬ 
cations. 
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II.  REENGINEERING  MOTIVATIONS 
AND  PROCESS  VIEW 


The  RDM  has  a  number  of  limitations  which  motivated  the  USMC  to  reengi¬ 
neer  it.  We  start  this  chapter  by  listing  and  describing  each  identified  limitation. 
Then,  to  develop  a  better  understanding  of  recruit  distribution  in  the  USMC,  two 
different  process  views  are  examined.  The  first  is  concerned  with  the  RDM  operating 
environment,  and  the  second  is  concerned  with  the  first  level  of  the  RDdss  IDEFO 
model. 

A.  LIMITATIONS  OF  OLD  SYSTEM 

Throughout  this  reengineering  effort,  a  number  of  hmitations  of  the  old  system 
have  become  apparent.  Many  of  these  limits  were  recognized  earlier,  and  were  part  of 
the  USMC’s  motivation  to  reengineer  the  RDM.  The  following  is  a  list  of  the  identified 
limitations  of  the  old  system. 

•  Navigation 

•  Data  management 

•  Assignment  procedure 

•  Transaction  processing  approach 

A  description  of  each  limitation  is  now  given. 

1.  Navigation 

Navigating  through  the  RDM  is  not  intuitive.  It  is  neither  obvious  where  one 
should  start  or  where  one  should  go.  Navigation  is  accomplished  by  initially  selecting 
an  option  from  one  of  the  main  display’s  drop  down  menus.  This  normally  results  in  a 
window  appearing  on  the  computer’s  desktop.  Then,  by  pointing  and  clicking  on  the 
displayed  window’s  buttons,  further  navigation  is  accomplished.  After  working  with 
the  RDM  for  a  number  of  hours,  we  were  able  to  navigate  through  the  application 
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to  find  and  display  specific  windows.  However,  after  a  week  or  two  of  not  using 
the  system,  we  had  difficulty  finding  our  way  around  again.  In  the  RDdss,  we  have 
created  an  intuitive  navigational  scheme  using  switchboards. 

2.  Data  Management 

Data  management  in  the  RDM  is  poor,  leading  to  the  introduction  of  numerous 
errors.  The  biggest  problem  in  this  regard  deals  with  data  entry.  The  RDM  violates 
the  basic  rule  of  never  requiring  the  user  to  enter  data  already  in  the  system  [Ref.  4]. 
For  example,  creating  a  new  school  in  the  RDM  requires  the  user  to  type  data  into 
seven  different  data  fields.  Only  the  course  identification  number  has  been  automated 
by  a  drop  down  list.  In  the  RDdss,  when  creating  a  new  school  we  have  reduced  the 
manual  data  entry  to  one  field. 

3.  Assignment  Procedure 

There  are  at  least  five  limitations  associated  with  the  old  system’s  assignment 
procedure.  It 

•  is  encoded  into  proprietary  software, 

•  examines  schools  sequentially,  rather  than  globally, 

•  makes  assignments  based  on  school  priority  rather  than  weights, 

•  attempts  to  maximize  fill  rather  than  fit-and-fill,  and 

•  is  relatively  inflexible. 

The  solver  performing  these  assignments  was  designed  back  in  the  1950’s, 
where  the  major  concern  was  speed  and  using  the  minimal  amount  of  memory.  It 
is  written  in  Fortran,  and  is  proprietary  code  owned  by  DSAI.  It  does  not  search 
repetitively  for  an  optimal  solution  by  trying  to  maximize  or  minimize  an  objective 
function.  Instead,  it  maximizes  the  fill  of  prioritized  school  seats.  In  the  RDdss,  we  use 
a  well  know  algorithm  called  CPlex  [Ref.  5].  After  conducting  around  600  iterations 
of  comparing  344  Marines  to  576  school  classes,  it  produces  an  optimal  solution.  Its 
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objective  function  was  written  to  make  the  assignment  procedure  flexible.  It  allows 
the  RDdss  manager  to  “game”  the  system  by  making  flt-and-flll  trade-offs,  until  a 
“good”  solution  is  found. 

4.  Transaction  Processing  Approach 

Finally,  the  old  system  follows  a  transaction  processing  approach,  vice  a  de¬ 
cision  support  approach  [R^f.  6].  This  is  partially  due  to  the  inflexibility  of  the 
solver.  However,  another  contributor  is  the  extreme  difficulty  in  comparing  one  run 
to  another.  Other  than  providing  a  means  for  manually  computing  the  numerical 
difference  in  Marines  assigned,  the  RDM  provides  little  insight  or  information  views 
for  comparing  runs.  This  is  because  there  is  no  way  to  objectively  compare  one  run 
to  another.  As  it  is  now,  if  the  RDM  manager  launches  the  assignment  model  and 
everybody  is  assigned,  the  result  becomes  the  approved  assignments.  In  the  RDdss, 
we  have  created  an  entire  process  devoted  to  providing  insightful  analysis  of  a  given 
run  (See  Chapter  IV,  Section  D  for  details).  Its  purpose  is  to  support  the  making  of 
wise  assignment  decisions. 

B.  A  PROCESS  VIEW 

To  develop  a  better  understanding  of  recruit  distribution  in  the  USMC,  two 
different  process  views  are  now  examined.  The  flrst  is  concerned  with  the  current 
operating  environment  of  the  old  system.  The  goal  is  to  develop  a  big  picture  view 
of  this  process.  For  those  interested  in  further  study  of  the  old  system.  Appendix  A 
contains  the  RDM  business  process  IDEFO  model. 

The  second  process  view  examined  concerns  the  first  level  of  the  RDdss  busi¬ 
ness  process  IDEFO  model.  The  goal  is  to  develop  a  better  understanding  of  the 
new  system,  without  going  into  great  detail.  This  lays  a  good  foundation  for  the 
RDdss  discussions  in  the  remainder  of  this  thesis.  Appendix  B  contains  the  entire 
IDEFO  model  of  the  new  system. 
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Figure  3.  Current  Recruit  Distribution  Operating  Environment 


1.  Recruit  Distribution  Model  Operating  Environ¬ 
ment 

Figure  3  graphically  depicts  the  operating  environment  of  the  USMC  recruit 
distribution.  At  the  top  are  the  policy  makers,  who  forecast  and  decide  how  many 
recruits  and  corresponding  school  seats  are  needed  over  the  next  few  years.  In  addition 
to  this,  they  determine  how  many  PEF’s  or  school  guarantees  to  make  available  for  a 
given  year.  Currently,  about  65-70%  of  the  recruits  enter  the  USMC  with  a  quarantee. 
The  recruit  and  PEF  authorizations  for  the  following  year  are  given  to  the  USMC 
recruiters,  and  the  school  seats  or  quotas  determined  for  the  following  years  is  input 
into  the  By  Name  Assignment  (BNA)  system. 

The  recruiters  use  the  recruit  and  PEF  authorizations  in  recruiting  from  the 
general  public.  Once  a  potential  candidate  is  found  they  take  the  ASVAB,  if  they  have 
not  already  done  so.  Based  on  the  results,  the  recruiter  can  offer  diflterent  quarantees. 
Once  the  candidate  signs  a  contract  with  the  USMC,  their  test  scores,  PEF,  and  other 
personal  information  such  as  age  and  height  are  entered  into  the  Automated  Recruit 
Management  System  (ARMS). 

Both  the  ARMS  and  BNA  systems  utilize  large  main  frame  databases.  They 
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serve  as  central  repositories  for  maintaining  data  on  many  aspects  dealing  with  the 
USMC.  Keeping  this  information  stored  in  one  location  ensures  everyone  is  using  the 
same  data,  providing  consistency  for  all  users.  One  user  is  the  RDM  manager,  who 
retrieves  recruit  and  school  information  from  these  systems  for  use  in  the  RDM. 

Additionally,  the  RDM  receives  data  from  two  other  sources.  The  MCRD 
instructors  provide  special  assignment  inputs.  These  are  personnel  identified  as  having 
the  talents  or  abilities  well  suited  for  a  particular  school.  The  other  data  comes  from 
the  MCT.  They  provide  the  RDM  manager  with  reclassification  information.  For 
instance,  a  Marine  is  reclassified  if  he  or  she  is  injured  during  MCT  and  is  unable  to 
make  the  start  date  of  their  assigned  ELS. 

All  this  recruit  and  school  data  is  input  into  the  RDM,  where  it  is  stored 
in  the  Military  Operational  Data  Store  (MODS).  The  model  is  then  run.  Once  a 
satisfactory  set  of  assignments  is  obtained,  the  RDM  manager  uploads  the  approved 
assignments  to  the  ARMS  and  BNA  systems.  Prom  this  assignment  information,  the 
MCRD  generates  orders  for  the  Marines  graduating  from  the  MCRD. 

2.  New  System  Level  0  Diagram 

Focus  is  now  shifted  to  the  examination  of  the  first  process  level  of  the  RDdss. 
Looking  any  deeper  will  provide  more  detail  than  is  necessary  at  this  point.  As 
mentioned  earlier,  the  intent  is  to  lay  the  foundation  for  the  RDdss  discussions  in  the 
remainder  of  this  thesis. 

Figure  4  shows  the  level  0,  or  context  diagram  of  the  RDdss.  The  program 
used  to  generate  this  illustration  was  BPWin,  which  is  based  on  IDEFO  modeUng. 
Consequently,  all  arrows  entering  from  the  left  are  considered  “inputs,”  arrows  enter¬ 
ing  from  the  top  are  “controls,”  arrows  exiting  to  the  right  are  “outputs,”  and  arrows 
entering  from  the  bottom  are  “mechanisms.”  A  convenient  acronym  for  this  is  ICOM 
[Ref.  7]. 

•  I  =  Input:  something  consumed  in  the  process 

*  C  =  Control:  a  constraint  on  the  operation  of  the  process 
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Figure  4.  RDdss  Process,  Level  0  Diagram 


•  0  —  Output:  something  resulting  from  the  process 

•  M  =  Mechanism:  something  used  to  perform  the  process,  but  is  not  itself 
consumed 


There  are  three  inputs  to  the  RDdss,  the  BNA  extract,  the  RDl  file,  and  the 
special  assignments/reclassifications.  The  first  of  these  contains  a  set  of  school  class 
quotas  covering  a  120  day  period.  This  comes  to  the  RDdss  manager  as  a  fixed-width 
dehmited  text  file.  The  RDl  file  contains  the  data  for  the  recruits  soon  to  graduate 
from  the  MCRD.  It  also  is  a  fixed- width  delimited  text  file.  The  special  assignments 
and  reclassifications  are  the  recruits  identified  with  special  abilities  or  talents  and  the 
Marines  requiring  reassignment  to  a  different  school  class,  respectively.  This  last  data 
comes  to  the  RDdss  manager  as  a  memo  and  not  a  text  file. 

The  only  control  is  the  database  (or  Military  Operational  Data  Store)  used  to 
store  the  data  for  the  RDdss.  Among  other  things,  the  MODS  contains  the  informa- 
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tion  specifying  the  eligibility  requirements  for  each  of  the  schools.  This  is  why  it  is 
considered  a  control.  It  contains  the  data  controlhng  or  constraining  the  assignment 
of  Marines  to  schools. 

Besides  the  approved  assignments  that  were  mentioned  earlier,  the  output  con¬ 
sists  of  graphs,  reports,  and  query  results.  Each  graph  was  designed  to  provide  insight 
into  the  current  assignment  result,  plus  provide  a  means  for  comparing  different  runs. 
The  reports  provide  a  print-out  of  information  the  RDdss  manager  might  find  useful. 
For  instance,  an  approved  assignment  report  and  an  unassigned  Marine  report  are 
both  available.  The  query  results  provide  different  views  of  the  data  in  the  MODS. 
For  instance,  one  of  the  queries  provides  a  listing  of  the  fitness  scores  of  all  schools  a 
Marine  is  eligible  for. 

Finally,  the  two  mechanisms  of  the  RDdss  are  the  RDdss  manager  and  the 
commercial- off-the-shelf  (COTS)  application  AMPLPlus.  Both  of  these  entites  are 
necessary  to  make  the  system  work,  and  are  not  consumed  by  the  process  itself. 
This  is  why  they  are  considered  mechanisms.  The  RDdss  manager  is  the  one  who 
points  and  clicks  on  the  buttons  of  the  RDdss,  making  it  operate.  AMPLPlus  is  the 
application  containing  the  mathematical  model  used  in  making  optimal  Marine-to- 
school  assignments.  It  interfaces  with  the  CPlex  algorithm  that  actually  performs 
the  optimization. 
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III.  MODELING  THE  RECRUIT 
DISTRIBUTION  PROBLEM 


We  model  the  recruit  distribution  problem  as  an  assignment  problem.  Various 
submodels  are  developed  to  compute  input  paramters  and  perform  other  preprocess¬ 
ing  steps  for  the  assignment  model,  which  optimally  assigns  recruits  to  a  school  class. 
Following  is  a  discussion  of  important  points  concerning  the  recruit  distribution  prob¬ 
lem. 

1.  Schools  and  Classes:  there  are  about  130  schools  per  fiscal  year,  which  are 
broken  down  by  classes  (about  1800  classes  per  fiscal  year).  Classes  of  the 
same  school,  commencing  on  different  dates,  are  identical.  However,  a  class 
commencing  soon  after  a  recruit  is  available  for  training  has  greater  utihty 
than  another  class  starting  at  a  later  date.  On  average,  there  are  600  classes 
in  a  nm. 

2.  Program  Enlisted  For  (PEF) 

(a)  65-70%  of  enlistees  enter  the  USMC  under  a  guarantee  (or  PEF).  The 
remaining  recruits  enter  under  an  open  contract  (PEF =00). 

(b)  A  recruit  can  be  assigned  only  to  schools  associated  with  his  or  her  PEF. 
Some  PEF’s  are  associated  with  one  school,  while  others  are  associated 
with  many  schools. 

A.  OPTIMIZATION  OBJECTIVES:  FIT  AND  FILL 

Our  approach  in  the  assignment  model  is  to  optimize  by  looking  at  both  fit 
and  fill.  The  importance  of  both  these  objectives  was  discussed  in  Chapter  II,  Section 

B.  The  idea  is  to  allow  the  RDdss  manager  to  make  a  tradeoff  between  fit  and  fill. 

The  high-level  objective  function  is: 


•  Maximize 


Ki  •  Fitness  —  K2  •  Penalty 


Where  Ki  is  the  fitness  coefficient  and  K2  is  the  fill  coefficient. 
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By  assigning  different  values  to  these  coefficients,  the  RDdss  manager  is  able 
to  make  trade-offs  between  fit  and  fill.  This  capability  makes  the  assignment  model 
flexible.  It  provides  the  RDdss  manager  a  means  for  “gaming”  the  system. 

B.  MEASURING  FITNESS 

The  first  half  of  the  high-level  objective  function  deals  with  maximizing  the 
fitness  of  Marines  to  schools.  Therefore,  we  cover  this  topic  now.  Following  is  a 
discussion  of  important  points  concerning  the  measuring  of  fitness. 

1.  Marines  are  only  eligible  for  assignment  to  schools  corresponding  to  their  PEF 
guarantees. 

2.  Associated  with  each  school  are  specific  mandatory  properties,  or  minirmnn 
eligibility  requirments  (e.g.  AGE  >  18). 

3.  Eligibilty  of  a  Marine  to  a  school  is  pre-determined  by  comparing  a  Marine’s 
attributes  (e.g.  Age  =  20)  to  the  school’s  mandatory  properties.  A  Marine  is 
eligible  only  if  he  or  she  meets  all  the  minimum  school  requirements. 

4.  Many  schools  also  have  desirable  properties  associated  with  them.  This  is 
a  property  which  is  desired  in  a  Marine  (e.g.  Height  >  65  inches),  but  are 
not  prerequisties  for  attending  the  school.  Since  some  desirable  properties 
are  more  desirable  than  others,  a  means  of  distinquishing  the  properties  is 
necessary.  We  have  followed  the  Marine  Corps  practice  of  using  6  levels  of 
desirability.  Level  1  properties  are  the  most  desired,  followed  by  level  2,  etc. 

5.  Let  V{s)  denote  the  set  of  desirable  properties  for  school  s,  and  let  level(p) 
denote  the  desirability  level  of  property  p.  Let  possesses^rn,p)  =  1  if  Marine  m 
possesses  property  p  (0  otherwise).  Further,  let  Scoreievei(p)  (>  0)  be  the  score 
assigned  for  possessing  a  levelip)  property,  where  Scoreievei{p)  is  calculated 
using  an  exponential  function  inversely  proportional  to  level(p).  The  scores 
for  levels  1  through  6  are  shown  in  Figure  5. 

6.  The  total  fitness  score  of  Marine  m  to  school  $  is  composed  of  two 

parts:  the  score  {ManScorem,s)  for  possessing  mandatory  properties,  and  the 
score  {De$Scorem,s)  for  possessing  some  or  all  of  the  desirable  properties. 

Our  procedure  for  computing  fitness  scores  is  designed  in  a  manner  that,  for 
each  school,  the  average  fitness  score — with  the  average  computed  over  all 
qualified  Marines,  i.e.  Marines  who  have  met  the  mandatory  properties — 
is  constant  (i.e.  100).  The  reason  we  did  this  was  to  ensure  each  school 
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Figure  5.  Exponential  Function  for  Calculating  Scoreuveiip) 


received  equal  treatment  in  the  model,  regardless  of  the  number  of  desirable 
properties  specified  for  each  school.  Otherwise,  all  other  things  being  equal, 
the  school  with  the  greatest  number  of  desirable  properties  would  receive  the 
most  assignments. 

7.  For  each  school  s,  percentage  weights  ManWtg  and  DesWtg  axe  assigned, 
respectively,  for  the  mandatory  and  desirable  properties.  For  example,  for 
school  Si,  a  weight  of  70%  may  be  assigned  to  the  mandatory  properties  and 
30%  for  the  desirable  properties. 

8.  A  Marine  possessing  all  mandatory  properties  for  school  s  is  given  an  initial 
score  ManScorem,s  =  ManWig  •  100.  Marines  who  do  not  possess  all  manda¬ 
tory  properties  for  a  school  are  given  an  overall  fitness  score  of  0  for  that 
school. 

9.  Of  all  the  Marines  possessing  the  mandatory  properties,  those  possessing  de¬ 
sirable  properties  are  awarded  additional  points,  which  are  weighted  by  the 
level  of  the  property.  The  Marine’s  score  for  desirable  properties  is  computed 
as  follows: 

•  The  absolute  score  AbSm,s,  for  Marine  m  and  school  s,  based  on  desirable 
properties  is 


AbSm,s=  Scoreieveiip) -possessesim^p) 

peP{s) 


The  average  of  these  absolute  scores  is  computed  over  all  qualified  Marines. 
Let  AveAbSg  denote  the  average  absolute  score  for  school  $. 
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•  Each  Marine’s  fitness  score  for  desirable  properties  is  then  computed  as  a 
fraction  of  this  average,  and  normalized  by  multiplying  with  the  percentage 
weight  for  desirable  properties.  That  is,  DesScorem,s  is  a  weighted  relative 
score: 

DesScorem,s  —  )  •  DesWts  ■  100 

The  overall  average  of  all  these  scores  is,  due  to  the  above  construction, 
DesWts  ■  100. 

10.  The  fimal  fitness  score,  fitm,s  is  simply  the  sum  ManScorem,s  +  DesScorem,s- 
It  may  be  seen  that,  for  each  school,  this  number  averages  (over  all  the  qualified 
Marines  for  that  school)  to  100. 

11.  As  mentioned  earlier,  schools  are  broken  down  by  classes  that  are  identical, 

except  for  their  start  dates.  Therefore,  let  fitm,s  =  for  each  class  c  of 

school  s. 

C.  MEASURING  FILL 

The  second  half  of  the  objective  function  deals  with  maximizing  the  fill  of 
school  seats.  We  now  turn  our  attention  to  this  topic. 

As  we  discussed  in  Chapter  II,  school  seats  are  paid  for  in  advance.  This 
is  to  guarantee  the  seat  is  available  to  the  USMC.  Consequently,  every  vacant  spot 
is  potentially  a  lost  resource.  Since  the  model  is  run  about  once  every  week,  the 
biggest  concern  is  the  unfilled  seats  having  report  dates  within  the  next  seven  days. 
Conversely,  a  seat  having  a  report  date  in  three  months  is  not  so  critical. 

To  capture  the  essence  of  filfing  school  seats  with  early  report  dates,  we  use 
a  penalty  function.  The  idea  is  simple.  School  seats  having  an  early  report  date  get 
a  high  penalty,  and  those  having  a  late  report  date  get  a  low  penalty.  A  number  of 
functions  would  have  worked  for  this.  We  have  graphed  two  candidates  in  Figure  6. 
The  first  is  a  linear  function  and  the  second  a  large-step  function.  Each  of  these  was 
tried  in  the  prototype.  In  our  opinion  the  latter  one  is  the  best  choice.  It  gives  a  lot 
of  emphasis  to  the  first  week,  plus  it  treats  all  schools  having  report  dates  within  the 
same  week  equally.  It  is  the  function  currently  implemented  in  the  rddss. 
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Figure  6.  Two  Candidate  Penalty  Functions 

D.  ASSIGNMENT  MODEL 

We  are  now  ready  to  formally  describe  the  assignment  model.  We  will  first 
specify  the  model’s  assumptions.  Then,  we  will  list  the  model’s  notation,  followed  by 
its  objective  function  and  constraints. 

1.  Assumptions 

1.  Each  school  is  unique  and  identifies  a  single  course  of  instruction  leading  to 
an  MOS. 

2.  In  any  given  run,  a  school  may  offer  several  classes  that  start  on  different 
dates.  It  is  more  desirable  to  fill  seats  in  classes  starting  earlier.  Such  classes 
have  a  higher  penalty  per  unit  shortfall  than  similar  classes  starting  at  a  later 
date. 

3.  All  Marines  available  for  assignment  are  graduating  from  the  MCRD  on  the 
same  date. 

4.  A  Marine’s  eligibility  for  a  school,  as  well  as  the  fit  for  each  school,  is  deter¬ 
mined  by  the  model  preprocessor,  talcing  into  account  the  PEF  guarantees, 
and  the  mandatory  and  desirable  properties. 

5.  A  Marine  is  assigned  to  a  school  corresponding  to  their  PEF  code,  or  not  at 
all. 

6.  It  is  better  to  leave  a  Marine  unassigned  than  to  overfill  a  school. 
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7.  The  demand  for  the  number  of  Marines  to  be  trained  in  each  school  class  is 
determined  by  looking  at  the  BNA  extract.  This  demand  statement  is  already 
constrained  by  the  capacity  constraint  at  each  school. 

2.  Notation 

•  Sets 

A4  :  Marines 
C  :  Classes 

•  Exogenous  Variables  (Parameters  in  AMPL) 

the  desirability  of  assigning  Marine  m  to  class  c  (note:  the  fitness 
score  is  zero  for  Marine-class  pairs  where  either  the  Marine  does  not 
meet  the  classes  mandatory  properties,  or  where  the  class  does  not 
fulfill  the  Marine’s  PEP  guarantee.) 

demandc-  demand  for  Marines  to  be  trained  at  class  c 

penaltyc.  penalty  for  each  unit  of  demand  not  met  (higher  value  means 
it  is  more  critical  to  fill  the  class) 

•  Decision  Variables 

Xm,c  (binary  integer):  1,  if  Marine  is  assigned  to  the  given  class;  0  other¬ 
wise 

3.  Objective 

Maximize  the  Total  Utility;  (Total  Reward  -  Total  Penalty) 

TU  =  ki(j2  Yi  ■  Xm,c  I  -  k2  ( •  {demandc  -  Y  ^rn,c)  )  (ULl) 

\ceCmZM  J  \cec  m^M  ’  / 

4.  Constraints 

•  assignmentLimit:  a  Marine  is  assignable  to  at  most  one  school 

Y^rn,c<l  Vm  (III.2) 

cec 

•  eligibility:  a  Marine  is  only  assignable  to  a  class  they  are  fit  for  (this  prevents 
assigning  Marines  with  a  fitness  score  of  zero) 

^m,c  —  f‘idm,c  Vm.  Vc  (III. 3) 


20 


•  capacity:  since  penalties  apply  only  if  there  is  a  positive  shortfall,  the  objec¬ 
tive  function  would  be  non-hnear.  To  avoid  that,  we  assume  we  will  never 
oversupply  Marines  to  schools,  resulting  in: 

Xm,c  <  demandc  Vc  (III.4) 

m^M. 
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IV.  A  DECISION  SUPPORT  SYSTEM  FOR 
RECRUIT  DISTRIBUTION 

A.  ARCHITECTURE  AND  IMPLEMENTATION 

Following  is  a  discussion  of  the  RDdss  architecture  and  its  implementation. 
First,  the  architectural  components  are  discussed.  Then,  the  steps  taken  to  build  the 
RDdss  are  described. 

1.  Architecture 

The  architecture  of  the  RDdss  is  depicted  in  Figure  7.  This  illustration  shows 
how  the  six  major  components  of  the  system  are  related.  We  wiU  describe  this  archi¬ 
tecture  by  examining  each  component  in  the  following  order:  switchboard,  relational 
database,  preprocessor,  assignment  model,  solver,  and  analyzer. 

The  switchboard  is  one  of  two  components  providing  an  interface  between  the 
user  and  the  RDdss.  It  is  the  mechanism  by  which  the  user  controls  the  operation  of 
the  system.  Figure  8  illustrates  the  main  switchboard  of  the  RDdss.  It  is  displayed 
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Figure  7.  RDdss  Architecture 
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Figure  8;  RDdss  Main  Switchboard 


when  the  application  is  started.  As  this  illustration  depicts,  the  user  can  perforin  the 
following  functions  by  simply  pointing  and  clicking  on  the  appropriate  button:  import 
and  export  data,  maintain  data,  preprocessing  and  execution  of  the  assignment  model, 
analyze  results,  query  data,  and  generate  reports.  All  the  RDdss  switchboards  were 
generated  using  Access  97. 

The  relational  database  technology  was  used  in  the  RDdss  [Ref.  8].  The 
actual  table  relationships  are  shown  in  Figure  9.  These  tables  were  developed  in 
Access  97,  which  uses  the  relational  technology.  In  addition  to  a  few  fiat  files  used  to 
communicate  with  the  assignment  model,  all  the  data  for  the  RDdss  is  stored  in  this 
database. 

The  preprocessor  is  one  of  the  two  modeling  components.  It  consists  of  Access 
97  Visual  Basic  for  Applications  (VBA)  code  that  computes  information  necessary 
for  the  assignment  model  [Ref.  9].  It  determines  the  demand  of  each  class,  the 
appropriate  penalty  associated  with  each  class,  and  the  Marine-to-class  fitness  matrix. 
The  code  for  these  assignment  model  inputs  is  found  in  Appendix  D,  lines  452-516 
and  4305-4812. 
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Figure  9.  RDdss  Relational  Schema 


The  assignment  model  is  the  other  component  of  the  modeling  components.  It 
has  been  modeled  in  AMPL  [Ref.  10],  a  language  and  a  computing  environment  for 
expressing,  solving,  and  analyzing  mathematical  programming  problems  (minimizing 
or  maximizing  a  function  of  decision  variables,  subject  to  constraints  on  the  variables). 
A  complete  discussion  of  the  assignment  model’s  math  model  is  available  in  Chapter 
III,  Section  D. 

The  next  component  is  the  solver.  It  communicates  directly  with  AMPL,  the 
modeling  language  of  AMPLPlus.  As  mentioned  in  Chapter  II,  it  uses  an  algorithm 
called  CPlex,  which  is  an  optimization  package  for  linear,  network  and  integer  pro¬ 
gramming.  Working  in  conjunction  with  AMPLPlus,  the  solver  finds  an  optimal 
solution. 

The  final  component  is  the  analyzer.  It  is  the  other  component  making  up  the 
user  interface.  This  is  where  the  RDdss  manager  analyzes  assignment  results,  seeking 
insights  for  developing  a  “good”  solution.  Insight  is  developed  mostly  by  the  graphs 
and  numerical  information  available  in  the  analyzer.  These  were  generated  in  Access 
97  using  its  report  generator  and  VBA  code.  The  programming  used  in  the  analyzer 
is  shown  in  Appendix  D  and  includes  lines  1-310,  2156-2214,  and  3756-3827. 
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Figure  10.  RDdss  Demonstration  Solver 

2.  Implementation 

Building  the  RDdss  was  an  iterative  process.  Some  steps  took  numerous  it¬ 
erations,  and  some  were  straightforward.  Below  is  a  listing  of  the  14  major  steps  it 
took  to  build  the  RDdss. 

1.  Analyzing  the  current  system  was  the  first  step.  This  included  1)  interviewing 
USMC  and  DSAI  personnel,  2)  reviewing  available  documentation,  and  3) 
operating  the  RDM. 

2.  After  gathering  the  current  system  data,  it  was  necessary  to  develop  a  logical 
understanding  of  the  system.  This  was  accomplished  by  modeling  it  with 
BPWin.  Appendix  B  is  the  result  of  this  step. 

3.  With  this  system  understanding,  it  was  possible  to  envision  how  the  new 
system  would  make  assignments.  Using  standard  optimization  techniques  [Ref. 
11],  a  small-scale  demonstration  solver  was  built  using  Excel  97.  It  is  shown 
in  Figure  10. 

4.  Combining  the  system  understanding  and  the  data  requirements  for  the  demon¬ 
stration  solver,  it  was  possible  to  envision  a  data  structure  for  the  reengineered 
system.  This  lead  to  the  development  of  a  third  normal  form  relational  schema 
for  the  RDdss  [Ref.  3]. 
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Figure  11.  RDdss  Decomposition  Diagram 


5.  Using  the  relational  schema  as  a  model,  the  RDdss  tables  were  built  in  Access 
97.  The  results  of  this  were  seen  earlier  in  Figure  9. 

6.  As  the  vision  for  the  reengineered  system  came  more  into  focus,  an  intuitive 
navigational  scheme  was  conceived.  This  lead  to  the  development  of  a  decom¬ 
position  diagram  for  the  RDdss.  It  is  demonstrated  in  Figure  11. 

7.  Using  the  decomposition  diagram  as  a  model,  the  user  interface  was  built  for 
the  RDdss  in  Access  97.  The  Main  Switchboard  was  seen  earlier  in  Figme  8. 

8.  With  the  switchboards  now  in  place,  VBA  coding  was  commenced  [Ref.  9]. 
This  made  each  switchboard  functional  and  useful. 

9.  Building  upon  the  concept  of  the  demonstration  solver  from  step  3,  a  for¬ 
mal  mathematical  assignment  model  for  the  RDdss  was  developed.  This  was 
introduced  in  Chapter  III,  Section  D. 

10.  The  COTS  applications,  AMPLPlus  and  CPlex  were  installed  on  the  personal 
computer  containing  the  RDdss. 

11.  With  AMPLPlus  now  installed,  it  was  possible  to  code  the  assignment  model 
into  the  application.  This  made  it  possible  to  verify  our  design. 

12.  Manually  creating  input  files  for  AMPLPlus  is  time  consuming.  So,  the  pre¬ 
processor  was  coded.  This  automated  the  generation  of  the  class  demand, 
class  penalty,  and  Marine-to-class  fitness  matrix. 

13.  Further  automation  of  the  RDdss  was  accomphshed  by  interfacing  Access  97 
and  AMPLPlus.  This  required  both  VBA  and  AMPL  coding.  The  end  result 
was  a  seamless  operation  of  the  two  applications. 
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Figure  12.  Actual  RDdss  Build  Sequence 

14.  Finally,  much  thought  was  given  to  ways  of  gaining  insight  into  the  assignment 
results.  This  lead  to  the  development  of  the  analyzer,  which  was  discussed 
briefly  in  the  previous  section. 

Some  of  these  steps  were  performed  in  parallel.  The  actual  order  followed  in 
building  the  RDdss  are  depicted  in  Figure  12. 


B.  USING  THE  RECRUIT  DISTRIBUTION  DECISION 
SUPPORT  SYSTEM 

In  this  section,  we  will  discuss  using  the  RDdss.  Three  aspects  are  covered,  1) 
setting  up  a  run,  2)  model  execution,  and  3)  customizing  a  run  and  results.  Each  is 
discussed  in  the  order  given  here. 

1.  Setting  up  a  Run 

Setting  up  a  run  of  the  RDdss  is  straightforward  and  easy  to  do.  Figure  13 
graphically  illustrates  the  steps  involved.  Starting  with  step  1  on  the  graph  and 
working  through  to  step  3d(iii),  we  will  discuss  a  run  set-up. 

The  RDdss  manager  starts  at  the  top  of  the  Main  Switchboard.  Here,  he  or 
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Figure  13.  Setting  up  a  Model  Run 


she  clicks  on  the  Import/Export  Data  button.  This  will  cause  the  Main  Switchboard 
to  close  and  the  Import/Export  Switchboard  to  open.  Prom  this  switchboard,  the 
RDdss  manager  will  import  the  RDl  file  and  the  BN  A  extract  into  the  RDdss  MODS. 
This  is  easily  accomplished  by  clicking  on  the  corresponding  buttons  for  importing 
these  files.  Finally,  the  RDdss  manager  will  cfick  on  the  “Return  to  Main  Switch¬ 
board”  button,  causing  the  Import/Export  Switchboard  to  close  and  the  Main  Switch¬ 
board  to  reopen. 

The  next  step  is  data  maintenance.  This  includes  updating,  editing,  and/or 
deleting  of  school  related  information.  The  RDdss  manager  gets  to  the  Maintain  Data 
Switchboard  by  clicking  on  the  appropriate  button  on  the  Main  Switchboard. 

Prom  the  Maintain  Data  Switchboard,  the  RDdss  manager  will  start  at  the 
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top  and  work  his  or  her  way  down  to  the  bottom.  The  various  buttons  on  this 
switchboard  open  forms  where  data  maintenance  is  performed.  For  instance,  the 
first  button  opens  the  Maintain  School  Data  form,  allowing  the  RDdss  manager  to 
create,  edit,  and/ or  delete  a  school.  The  other  buttons  allow  similar  operations  with 
the  PEFs,  and  fundamental  and  logical  properties.  After  the  RDdss  manager  has 
finished  maintaining  the  data,  he  or  she  returns  to  the  Main  Switchboard  by  clicking 
on  the  “Return  to  Main  Switchboard”  button. 

After  data  maintenance,  the  RDdss  manager  is  ready  to  perform  data  prepro¬ 
cessing  in  prepartion  for  a  model  run.  By  clicking  on  the  Preprocessing  and  Execution 
button,  the  Main  Switchboard  closes  and  the  Preprocessing  and  Execution  Switch¬ 
board  opens.  FVom  here,  as  on  all  other  switchboards,  the  RDdss  manager  starts  at 
the  top  and  works  down. 

The  first  three  preprocessing  buttons  directly  effect  the  generation  of  the  class 
demand,  class  penalty,  and  Marine-to-class  fitness  matrix.  This  is  why  they  come 
before  the  fourth  button.  Generate  AMPL  Files.  Preprocessing  in  the  correct  order 
will  reduce  the  amount  of  time  spent  setting  up  the  run,  by  minimizing  the  need  to 
generate  a  new  class  demand,  class  penalty,  and  Marine-to-class  fitness  matrix. 

The  first  preprocessing  button  concerns  special  assignments.  Specially  assign¬ 
ing  a  recruit  affects  the  AMPL  input  in  two  ways.  First,  the  respective  member  is  not 
included  in  the  Marine-to-class  fitness  matrix,  since  they  already  have  an  assignment. 
Second,  the  class  demand  for  the  class  the  recruit  is  assigned  to  must  decrease  by 
one.  Otherwise,  it  may  become  overfilled. 

The  second  preprocessing  button  concerns  reclassification  of  a  Marine.  Re¬ 
classified  Marines  affect  the  AMPL  input  in  two  ways.  First,  the  class  demand  of  the 
class  they  are  no  longer  assigned  to  must  increase  by  one.  This  provides  an  oppor¬ 
tunity  to  fill  the  empty  seat  during  a  subsequent  run.  Second,  the  class  demand  of 
the  class  the  Marine  has  been  reassigned  to  must  decrease  by  one.  Otherwise,  it  may 
become  overfilled. 
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The  third  preprocessing  button  concerns  data  scrubbing,  which  also  aifects  the 
AMPL  input.  It  is  an  attempt  to  identify  and  correct  errors  relating  to  the  Marines. 
An  example  is  a  Marine  who  has  been  given  an  unknown  PEF.  Since  it  is  not  identified 
by  the  RDdss,  the  member  will  receive  a  zero  fitness  score  for  every  class.  This  will 
prevent  the  Marine  from  getting  an  assignment. 

Following  the  completion  of  special  assignments,  reclassifications  and  data 
scrubbing,  the  RDdss  manager  is  ready  to  generate  the  AMPL  input  files.  After  going 
to  the  Generate  AMPL  Files  form,  the  first  concern  is  specifying  the  weights  for  the 
mandatory  and  desired  properties.  This  is  specified  by  the  RDdss  manager  at  step 
3d(i).  What  this  does  is  indicate  how  important  the  mandatory  properties  are  with 
respect  to  the  desired  properties.  For  instance,  if  the  RDdss  manager  decided  to  give 
a  weight  of  1.0  to  the  Mandatory  selection,  the  Desired  selection  would  automatically 
fill  in  with  0.0.  This  would  indicate  the  desired  properties  are  of  no  consequence.  The 
default  for  these  two  selections  is  0.7  for  Mandatory,  and  0.3  for  Desired. 

Next,  at  step  3d(ii),  the  RDdss  manager  selects  the  MCT  graduation  date 
desired.  This  is  selected  from  the  drop  down  list.  Then,  the  RDdss  manager  pushes 
the  “GO!”  button.  The  system  will  now  generate  the  AMPL  input  files,  completing 
the  run  set-up. 

2.  Model  Execution 

Execution  of  the  assignment  model  takes  place  after  the  run  set-up  has  been 
completed.  Figure  14  graphically  illustrates  the  steps  taken  to  execute  the  model.  A 
discussion  of  this  is  now  given. 

From  the  Main  Switchboard,  the  RDdss  manager  points  and  clicks  on  the 
Preprocessing  and  Execution  button.  This  takes  him  or  her  to  the  corresponding 
switchboard.  From  here,  the  Execute  Sol ver/Opt ions  selection  is  made.  This  opens 
up  the  form  where  the  model  is  executed  from. 

The  Execute  Solver/Options  form  provides  the  RDdss  manager  the  ability  to 
set  the  fit  and  fill  coefficients  for  the  objective  function.  The  default  values  are  1  for 
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Figure  14.  Model  Execution 


each  coefficient.  The  RDdss  manager  can  change  either  of  these  with  a  whole  number 
from  0  -  100.  The  significance  of  these  munbers  is  discussed  in  detail  later  in  this 
chapter.  Once  the  desired  coefficients  have  been  chosen,  the  Execute  Solver  button 
is  pushed. 

By  selecting  the  Execute  Solver  button,  AMPLPlus  is  launched.  This  applica¬ 
tion  will  run  without  user  interaction.  First,  it  will  import  the  RDdss  mathematical 
assignment  model.  Next,  the  specified  fit  and  fill  coefficients  are  retrieved.  Finally, 
the  preprocessed  data  generated  during  the  run  set-up  are  imported.  Using  this  in¬ 
put  data,  AMPLPlus  works  in  conjunction  with  the  solver  and  generates  an  optimal 
assignment  solution. 
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With  the  generation  of  an  optimal  assignment  solution,  the  results  are  sent  to 
an  output  file  called  “rdm.out.”  AMPLPlus,  having  completed  its  task,  now  closes. 
This  indicates  an  optimal  solution  was  found  and  is  available  for  importing.  So,  the 
RDdss  manager  now  imports  the  results  by  pushing  the  Import  Results  button  on 
the  Execute  Solver /Option  form. 

3.  Customizing  a  Run  and  Results 

As  mentioned  in  the  previous  subsection,  the  RDdss  manager  can  set  the  fit 
and  fill  coefficients  of  the  objective  function.  This  is  a  key  capability  of  the  new 
system.  It  is  the  means  by  which  the  RDdss  manager  can  customize  a  run  and 
“game”  the  RDdss.  This  “gaming”  of  the  new  system  is  essential  for  determining  a 
“good”  assignment  result. 

For  instance,  if  the  fit  coefiicient  is  set  to  0,  and  the  fill  coefficient  is  set  to 
a  number  >  0,  say  1,  the  assignment  model  will  maximize  the  fill  of  schools  having 
early  report  dates.  This  has  both  advantages  and  disadvantages.  One  advantage  is 
the  average  wait  time  for  Marines  to  attend  a  school  is  minimized.  Another  is  that 
the  number  of  unfilled  school  seats,  having  a  report  date  between  the  current  and 
next  scheduled  model  run,  is  minimized.  However,  a  disadvantage  is  the  average 
Marine-to-school  fitness  score  is  guaranteed  to  be  the  lowest  score  of  all  runs. 

Conversely,  if  the  fit  coefficient  is  set  to  a  number  >  0,  say  1,  and  the  fill 
coefficient  is  set  to  0,  the  assignment  model  will  maximize  the  average  Marine-to- 
school  fitness.  An  advantage  here  is  the  increased  chance  of  each  Marine  successfully 
completing  their  ELS,  estabfishing  a  pattern  of  success  early  in  theri  career.  However, 
one  disadvantage  is  the  wait  time  for  a  Marine  to  attend  a  school  is  guaranteed  to  be 
the  longest.  Also,  the  number  of  imfilled  school  seats,  having  a  report  date  between 
the  current  and  next  scheduled  model  run,  is  guaranteed  to  be  the  greatest. 

Neither  of  the  above  solutions  is  ideal.  A  better  solution  is  some  where  be¬ 
tween  these  two  extremes.  By  changing  the  fit  and  fill  coefficients  of  the  objective 
function,  the  RDdss  manager  has  a  means  for  customizing  each  run  to  ensure  a  “good” 
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assignment  result  is  found. 


C.  INNOVATIONS  IN  USER  INTERACTION 

A  number  of  user  interaction  innovations  have  been  made  in  the  RDdss.  Two  of 
them  have  already  been  discussed.  These  were  the  intuitive  navigational  scheme  using 
the  switchboards,  and  the  elimination  of  manually  entering  data  already  available  in 
the  system.  One  more  note  worthy  innovation  is  now  introduced.  It  is  a  date  change 
innovation. 

The  date  change  innovation  concerns  changing  the  graduation  date  of  the 
Marines  in  the  downloaded  RDl  file.  This  is  necessary  for  generating  correct  as¬ 
signment  results.  The  date  in  the  downloaded  RDl  file  is  based  on  graduation  from 
the  MCRD.  However,  the  model  needs  to  know  when  the  Marines  are  available  for 
assignment.  Availability  is  based  on  the  MCT  graduation  date. 

The  old  system  solution  to  this  problem  took  three  steps.  First,  the  RDM 
manager  used  a  calendar  to  determine  the  MCT  graduation  date.  This  is  normally 
27  days  following  completion  of  MCRD,  and  is  always  on  a  friday.  So,  the  RDM 
manager  will  find  the  MCRD  graduation  date  on  the  calendar  and  count  27  days. 
The  friday  nearest  to  this  day  is  the  day  desired.  Second,  this  MCT  graduation  date, 
along  with  the  RDl  file,  is  sent  to  another  branch  in  the  USMC  where  the  date  change 
is  made.  Third,  the  file  is  returned  to  the  RDM  manager,  who  imports  the  file  into 
the  RDM. 

The  reengineered  system  has  streamlined  this  process.  Within  the  RDdss,  the 
RDdss  manager  makes  the  date  change.  It  is  accomplished  with  the  push  of  a  couple 
buttons. 

Figure  15  shows  how  these  changes  are  made.  First,  the  RDdss  manager  se¬ 
lects  the  MCRD  graduation  date  requiring  a  change.  Once  this  is  selected,  a  calendar 
appears.  Its  purpose  is  to  help  the  RDdss  manager  correctly  identify  the  MCT  grad¬ 
uation  date.  Next,  the  “=”  button  is  pushed.  Its  purpose  is  to  add  the  number  of 
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Change  Graduation  Dale 


Figure  15.  Changing  a  Graduation  Date 


days  specified  in  the  “Days”  field  (default  is  27),  to  the  MCRD  graduation  date.  This 
updates  the  calender  as  shown  on  the  far  right.  When  the  correct  date  is  found,  the 
“Change  Date”  button  is  pushed.  This  makes  the  desired  change  to  the  data  in  the 
RDdss  database. 

D.  INNOVATIONS  IN  ANALYZING  MODEL  RESULTS 

As  discussed  earlier,  the  RDdss  manager  has  the  capability  of  “gaming”  the 
system  by  using  different  fit  and  fill  coefficients.  However,  having  this  ability  is  not 
enough.  The  RDdss  manager  still  needs  a  means  to  compare  one  run  against  another. 

It  is  hard,  if  not  impossible,  to  estimate  the  quality  of  a  solution  simply  by 
looking  at  a  list  of  assignments.  The  actual  assignment  results  depend  on  the  values 
of  the  fit  and  fiU  coefficients,  which  cannot  be  set  at  the  ideal  levels  without  under¬ 
standing  the  impact  on  solution  quality.  So,  analyzing  run  results  to  get  insight  and 
develop  a  “good”  solution  is  now  discussed. 

Four  measures  are  considered  particularly  useful  in  evaluating  alternative  so¬ 
lutions. 


1.  Fitness  premium.  The  Marine-to-school  fitness  function  is  defined  in  a  way 
that  for  each  school,  the  average  fitness  over  all  Marines  eligible  for  that  school 
is  100.  So,  for  any  school,  if  the  average  fitness  computed  over  Marines  assigned 
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to  that  school  is  greater  than  (or  less  than)  100,  the  difference  represents  a 
positive  (or  negative)  premium. 

2.  Unfilled  seats  in  first  week.  Since  the  model  is  run  nearly  every  week,  seats 
left  unfilled  in  classes  starting  in  the  first  week  will  remain  unfilled.  This 
represents  wasted  resources. 

3.  Average  wait  time  for  Marines.  Experience  has  shown  that  the  longer  a  Ma¬ 
rine  waits  before  attending  their  ELS,  the  greater  the  chance  of  disciplinary 
problems.  Therefore,  it  is  generally  better  to  keep  this  wait  period  short. 

4.  Unassigned  Marines.  A  purpose  of  the  system  is  to  assign  each  Marine  to  a 
school.  Therefore,  knowing  the  number  of  imassigned  Marines  is  an  important 
measure. 

To  provide  the  RDdss  manager  insight  into  the  assignment  results,  these  mea¬ 
sures  have  been  incorporated  into  output  representations,  including  summary  statis¬ 
tics  and  detailed  graphs.  Each  output  provides  both  numerical  and  visual  informa¬ 
tion.  The  numbers  are  used  for  quantitative  comparisons.  The  graphical  information 
provides  a  big  picture  view  for  use  in  a  qualitative  comparison. 

As  an  example,  consider  the  two  fitness  graphs  in  Figure  16.  Both  of  these 
were  produced  using  an  RDl  file  of  344  Marines  and  an  BN  A  extract  with  school  data 
covering  a  120  day  period.  Below  each  graph  is  amplifying  and  numerical  information. 
The  bar  chart  on  the  left  has  a  fit  coefficient  of  0  and  a  fill  coefficient  of  1.  Additionally, 
its  fitness  premium  is  28  (=128-100).  The  bar  chart  on  the  right  has  a  coefficient  of 
1  for  both  fit  and  fill.  Its  fitness  premium  is  38  (=138-100).  The  fit  numbers  are 
quantitatively  comparable.  The  fitness  premium  for  the  run  on  the  right  is  36% 
(=100%  X  [38-28]/28)  better  than  the  run  on  the  left. 

The  above  numerical  analysis  is  6ilso  supported  by  visually  comparing  the  bar 
charts.  Notice  the  large  nimaber  of  blips  falhng  below  the  fitness  score  of  100  on 
the  left  graph.  Each  blip  represents  a  Marine,  and  there  are  actually  44  of  them. 
Conversely,  notice  the  comparatively  small  number  of  blips  below  100  on  the  right 
graph.  There  are  21  of  them.  The  visual  comparison  of  the  two  graphs  reveals  the 
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Figure  17.  Two  alternative  results:  Fill 


qualitative  difference.  The  graph  on  the  right  indicates  a  higher  quality  Marine-to- 
school  fit.  Of  course,  this  supports  the  numerical  comparison  performed  earlier. 

As  another  example,  consider  the  two  fill  graphs  in  Figure  17.  These  are 
based  on  the  two  model  runs  just  described.  In  other  words,  the  left  graph  has  a  fit 
coefficient  of  0  and  a  fill  coefficient  of  1,  and  the  right  graph  has  a  coefficient  of  1  for 
both  fit  and  fill. 

Visually,  these  two  graphs  display  an  obvious  difference.  To  appreciate  how 
they  axe  different  requires  an  understanding  of  the  significance  of  the  blips.  As  note  1 
of  each  graph  indicates,  “The  classes  are  ordered  by  penalty  from  highest  to  lowest.” 
Recall  from  Chapter  III,  this  means  the  ordering  is  by  class  report  date,  starting  with 
the  earliest  date.  In  other  words,  the  bar  chart  on  the  left  indicates  almost  every 
Marine  will  start  school  within  the  first  three  weeks.  As  discussed  earlier,  this  is 
desirable.  The  bar  chart  on  the  right  has  its  blips  more  spread  out.  So,  by  visually 
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comparing  the  two  graphs,  the  left  one  has  a  higher  quality  with  respect  to  minimizing 
wait  time. 

This  is  easily  validated  by  the  numbers  given  in  note  5  of  each  graph.  The 
average  wait  of  a  Marine  from  the  left  bar  chart  is  1.33  weeks,  and  the  average  wait 
from  the  other  bar  chart  is  1.69  weeks.  Now  we  quantitatively  compare  these  values. 
The  results  from  the  left  graph  are  27%  (=100%  x  [1.69-1.33]/1.33)  better  than  the 
right. 

In  the  following  table,  the  results  from  three  runs  are  given.  The  measures  on 
the  left  are  the  four  measures  described  earlier.  Each  run  used  the  same  344  Marines 
and  120  days  worth  of  school  classes.  The  information  for  the  first  and  third  runs 
is  from  the  two  model  runs  discussed  above.  The  second  run  was  determined  by 
“gaming”  the  system.  In  other  words,  we  tried  numerous  combinations  of  the  fit  and 
fill  coefficients  until  a  “good”  solution  was  found.  Run  2  was  the  result.  Understand 
though,  we  are  not  saying  “best”  solution.  Only  the  USMC  can  determine  what  is 
best  for  them. 


Run  1 

Run  2 

Run  3 

(fit=0;  fiU=l) 

(fit=l;  fill=ll) 

(fit=l;  fill=l) 

Unfilled  Seats  (1st  week) 

23 

23 

23 

Unassigned  Marines 

3 

3 

3 

Average  Wait  (weeks) 

1.33 

1.33 

1.69 

Fitness  Premium 

28 

31 

38 

The  reason  we  feel  Run  2  is  a  “good”  solution  is  based  on  a  quantitative 
comparison  of  the  measures  and  one  additional  piece  of  information.  It  is  the  fact 
the  USMC  feels  it  is  more  important  to  minimize  wait  time  than  to  maximize  the 
Marine-to-school  fit.  The  remainder  of  this  section  explains  how  we  decided  Rim  2 
was  a  “good”  solution. 

Starting  with  the  values  for  unfilled  seats,  it  is  obvious  all  three  runs  are  equal. 
The  same  is  true  for  the  unassigned  Marines  measure.  So,  these  two  measures  provide 
no  insight  for  comparison  purposes. 
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Concerning  the  average  wait,  the  values  of  Runs  1  and  2  are  equal.  Further, 
their  1.33  value  is  numerically  smaller  than  the  1.69  value  of  Run  3.  This  is  good  for 
Rxms  1  and  2.  As  was  proven  earher,  a  value  of  1.33  is  27%  better  than  1.69. 

Finally,  there  is  the  fitness  premium  measure.  The  first  observation  made  is 
that  Run  1  is  a  candidate  for  elimination.  The  reason  is  as  follows.  Run  2  has  the 
same  score  as  Run  1  for  the  first  three  measures  in  the  table,  but  it  shows  an  11% 
(=100%x[31-28]/28)  increase  in  the  fitness  premium.  So,  Run  1  is  eliminated  from 
the  competition. 

This  leaves  the  last  two  runs.  Run  3  shows  a  23%  (=100%x[38-31]/31)  increase 
in  fitness  premium  over  Run  2.  This  creates  a  conflict.  Run  3  has  a  27%  increase  in 
average  wait  time,  which  is  bad.  Conversly,  it  has  a  23%  increase  in  fitness  premium, 
which  is  good.  To  decide  which  solution  is  better,  more  information  is  necessary.  This 
comes  from  the  fact  mentioned  earlier,  that  the  USMC  feels  it  is  more  important  to 
minimize  wait  time  than  to  maximize  the  Marine-to-school  fit. 

We  can  now  conclude  Run  2  is  a  better  solution  than  Run  3.  Here  is  why.  Run 
2  minimizes  average  wait  by  27%  by  giving  up  a  23%  increase  in  Marine-to-school  fit. 
This  agrees  with  the  USMC  desire  to  more  strongly  emphasize  a  minimum  waiting 
time.  So,  Run  2  is  a  better  solution  than  Run  3.  Since  it  also  satisfies  the  known 
desires  of  the  USMC,  we  feel  it  is  a  “good”  solution  as  well. 

E.  OBJECTIVE  COMPARISON  OF  OLD  AND  NEW 
SYSTEM  SOLUTIONS 

In  the  previous  section,  we  described  how  a  set  of  solutions  generated  by  the 
RDdss  are  compared  to  determine  a  “good”  solution.  Using  the  same  approach,  we 
now  demonstrate  how  to  objectively  compare  the  results  fi:om  the  old  system  with 
the  new  system.  This  provides  the  USMC  a  means  of  determining  which  system’s 
solution  is  better,  if  either.  Comparison  of  the  new  and  old  system  results  has  been 
made  easy  by  automating  the  importing  of  the  RDM  result  into  the  RDdss. 
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We  have  summarized  the  important  data  for  the  old  and  new  systems  in  the 
following  table,  based  on  the  same  344  Marines  and  120  days  of  school  classes  dis¬ 
cussed  earlier.  Since  the  assignment  algorithm  for  the  RDM  was  designed  to  maximize 
fill,  a  run  from  the  RDdss  based  strictly  on  fill  has  also  been  included.  It  is  the  run 
with  a  fit  coefficient  of  0,  and  a  fill  coefficient  of  1.  The  last  column,  labeled  “Run 
2,”  is  a  “good”  solution  we  found  by  gaming  the  RDdss. 


Run  1 

(fit=0;  fill=l) 

RDM 

Run  2 

(fit=l;  fill=10) 

Unfilled  Seats  (1st  week) 

23 

23 

23 

Unassigned  Marines 

3 

3 

3 

Average  Wait  (weeks) 

1.33 

1.34 

1.34 

Fitness  Premium 

28 

29 

32 

We  start  by  objectively  comparing  the  RDdss  fill-based  result  with  the  RDM 
result.  They  axe  labeled  “Run  1”  and  “RDM,”  respectively.  As  we  shall  prove,  the 
RDdss  has  done  a  better  job  at  filling  early  school  seats  than  the  RDM. 

Of  the  four  measures,  only  one  provides  any  useful  insight  for  this  comparison. 
It  is  the  average  wait  measure.  The  reason  the  other  three  do  not  apply  is  as  follows. 
The  first  two  measures  have  the  same  values,  so  they  provide  no  insight.  The  last 
measure  is  not  too  meaningful,  since  Run  1  is  strictly  based  on  maximizing  fill.  In 
other  words,  it  disregards  fit  because  its  fit  coefficient  is  set  to  0.  This  leaves  the 
average  wait  measure. 

A  quantitative  comparison  of  the  average  wait  shows  the  RDdss  solution  is 
1%  (100%x[1.34-1.33]/1.33)  better  than  the  RDM  solution.  This  is  explainable  by 
considering  the  approach  used  in  each  model.  The  RDM  assignment  algorithm  maxi¬ 
mizes  the  fill  of  early  school  seats  by  looking  at  each  school  in  a  sequential  fashion.  In 
contrast,  the  RDdss  conducts  a  global  comparison  of  Marines  and  schools.  In  other 
words,  it  goes  through  numerous  iterations  until  it  finds  an  optimal  fill  solution.  This 
show  that  the  RDM  assignment  algorithm  is  only  closely  approximating  the  optimized 
assignment  result. 
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Finally,  we  “gamed”  the  new  system  until  a  “good”  solution  was  found.  This 
is  Run  2.  It  has  a  fit  coefficient  of  1  and  a  fill  coefficient  of  10. 

The  objective  comparison  of  the  RDM  and  Run  2  solutions  is  straigtforward. 
Since  the  first  three  measures  are  the  same  for  both  results,  they  provide  no  insights. 
This  leaves  only  the  fitness  premium  measure.  A  quantitative  comparison  of  this 
measure  shows  Run  2  has  a  10%  (100%x[32-29]/29)  better  solution  than  RDM.  This 
shows  the  benefit  of  “gaming”  the  RDdss. 

F.  SUMMARY 

This  relatively  long  chapter  covered  some  important  points  related  specifically 
to  the  RDdss.  The  architectural  components  of  the  new  system  were  discussed  first, 
followed  by  the  steps  taken  to  actually  build  this  DSS.  Then,  from  an  operational  point 
of  view,  using  the  RDdss  was  discussed.  This  included  setting  up  a  run,  executing 
the  model,  and  customizing  a  run  for  determining  a  “good”  solution.  Next,  two 
innovations  were  discussed  in  great  detail.  These  included  the  date  change  innovation 
and  the  analyzing  model  results  innovation.  Finally,  a  means  of  objectively  comparing 
the  solution  from  the  old  and  new  systems  was  discussed. 

We  truly  believe  the  innovations  and  capabilites  introduced  by  this  prototype 
can  greatly  benefit  the  USMC’s  Marine  Enlisted  Assignments  branch.  It  can  help  the 
USMC  to  more  effectively  accomplish  its  mission  as  stated  by  the  Commandant  of 
the  Marine  Corp,  “to  put  the  right  Marine  in  the  right  place  at  the  right  time  with 
the  right  skills  and  quality  of  life.” 
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V.  CONCLUSION 


This  concluding  chapter  has  three  short  sections,  followed  by  a  final  comment. 
In  the  first  section,  we  reiterate  the  significant  contributions  made  in  the  thesis.  This 
is  followed  by  a  brief  description  of  some  lessons  we  learned.  Then,  some  recommended 
improvements  for  the  prototype  are  given.  Following  this  last  section,  we  comment  on 
how  this  thesis  work  might  benefit  the  other  branches  of  the  United  States  military. 


A.  SIGNIFICANT  CONTRIBUTIONS 

Four  significant  contributions  beneficial  to  the  USMC  were  made  in  this  thesis. 
These  were  discussed  in  detail  in  the  previous  three  chapters.  A  list  and  summary  of 
the  contributions  is  given  here. 

•  Analysis  and  articulation  of  the  recruit  distribution  process  -  by  interviewing 
USMC  and  DSAI  personnel,  reviewing  available  documentation,  and  oper¬ 
ating  the  RDM  we  were  able  to  articulate  an  understanding  of  the  recruit 
distribution  process  using  IDEF  process  modeling.  Additional  data  modeling 
was  articulated  in  a  third  normal  form  relational  schema. 

•  Development  of  a  mathematical  model  -  by  analyzing  the  assignment  process, 
criteria,  and  constraints,  USMC  policies  and  objectives,  a  mathematical  model 
for  the  new  system  was  developed. 

•  Fully  functional  prototype  -  an  intuitive  and  easy  to  understand  new  sys¬ 
tem  that  seamlessly  interfaces  with  the  old  system  was  built.  It  provides  an 
objective  means  of  comparing  assignment  results  of  both  systems,  and  was 
developed  using  COTS  software  applications. 

•  Elimination  of  the  proprietary  solver  and  associated  contractor  lock-in  -  this 
was  accomplished  by  replacing  the  proprietary  solver  with  two  COTS  appfi- 
cations. 

B.  LESSONS  LEARNED 

Our  original  goal  was  to  build  an  As-Is  IDEFO  model  of  the  RDM,  about  two 
months  after  starting  the  thesis.  This  worked  out  fine.  The  next  goal  was  to  take 
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another  six  weeks  to  develop  a  To-Be  IDEFO  model  [Ref.  1].  This  did  not  work  out, 
for  two  reasons.  First,  our  understanding  of  the  entire  recruit  distribution  process 
was  still  not  mature  enough  to  build  the  To-Be  model.  Nearly  half  a  year  was  spent 
just  thinking  about  its  many  details.  Second,  it  is  nearly  impossible  to  envision  the 
new  system  without  first  knowing  the  capabilities  and  limitations  of  the  application 
used  to  build  the  prototype.  One  extreme  envisions  the  impossible,  while  the  other 
barely  touches  the  reengineered  system’s  potential.  The  lesson  learned  from  this  was 
that  properly  reengineering  a  process  requires  two  things.  A  detailed  understanding 
of  the  current  process  environment,  and  a  good  working  knowledge  of  the  capabilities 
and  limitations  of  the  application  used  to  build  the  prototype. 

Getting  feedback  firom  the  Marine  Enhsted  Assignments  branch  was  not  always 
easy.  Correspondence  normally  occured  by  e-mail.  There  was  an  inverse  relationship 
between  the  number  of  questions  asked  and  the  number  of  answers  given.  As  the  one 
increased,  the  other  decreased.  So,  another  lesson  learned  was  that  it  is  best  to  limit 
each  correspondance  to  a  question  or  two. 

While  writing  code,  it  is  best  to  simultaneously  document  the  code’s  purpose. 
Going  back  and  trying  to  provide  documentation  at  the  end  is  too  frustrating.  This 
requires  a  considerable  amount  of  discipline,  but  is  well  worth  the  effort.  The  lesson 
learned  here  is  document  as  you  code. 

C.  PROTOTYPE  IMPROVEMENTS 

A  big  part  of  this  thesis  involved  the  building  and  refinement  of  the  prototype. 
The  following  topics  are  areas  where  the  RDdss  could  use  improvements. 

1.  Speed  Improvements 

a.  Preprocessing  Data 

Of  all  the  steps  necessary  to  complete  a  run  of  the  RDdss,  the  prepro¬ 
cessing  step  is  the  most  time  consuming.  For  the  344  Marines  and  approximately 
500  school  classes  analyzed  in  this  thesis,  it  takes  about  30  minutes  to  preprocess 
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this  data.  This  is  about  ten  times  longer  than  the  assignment  model  takes  to  find 
an  optimal  solution.  As  the  size  of  the  preprocessing  data  is  doubled,  so  is  the  time 
needed  to  preprocess  it.  Finding  a  way  to  speed  up  this  process  is  desirable.  One 
possibility  is  to  find  a  way  to  perform  all  the  preprocessing  in  main  memory,  with 
only  two  accesses  to  the  hard  drive.  The  first  access  is  to  get  the  necessary  Marine 
and  school  data.  The  second  is  to  write  the  preprocessed  results  back  to  the  hard 
drive. 

b.  Analyzing  Result 

Compared  to  all  other  forms  and  switchboards  in  the  RDdss,  opening 
the  “analyze  results”  forms  is  the  most  time  intensive.  With  the  344  Marines  and 
approximately  500  school  classes,  it  takes  just  under  a  minute  for  any  of  these  three 
to  open.  This  feels  fike  an  eternity  when  you  are  in  a  hurry.  The  reason  it  takes 
so  long  is  the  creation  of  temporary  tables,  numerous  calculations  and  comparisons, 
and  retrieving  of  data  from  fiat  files.  Finding  a  way  to  reduce  this  time  is  desirable. 
One  possibility  is  to  create  another  form  which  would  contain  only  the  four  objective 
measures.  Currently,  the  RDdss  manager  must  go  to  two  different  forms  for  this 
information.  Each  containing  information  and  displays  in  addition  to  the  objective 
measures,  which  slow  them  down. 

2.  Multiple  Solution  Storage 

Currently,  the  prototype  will  only  save  the  results  of  one  solution.  This  means 
the  RDdss  manager  must  either  print-out  hard  copies  of  the  graphs,  or  manually 
write  down  each  solution’s  objective  measures  for  comparison  with  other  runs.  An 
improvement  here  should  allow  the  storage  of  at  least  three  solutions.  This  would 
permit  the  RDdss  manager  to  easily  compare  each  solution.  He  or  she  could  then 
eliminate  one  or  two  undesirable  solutions,  while  continuing  to  search  for  a  “good” 
one. 
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3.  Administration  Switchboard 

To  look  at  all  the  schools  or  properties  in  one  display,  the  RDdss  manager 
must  open  up  the  associated  school  or  property  table.  A  reason  for  doing  this  is 
system  administration.  For  instance,  if  a  supervisor  is  auditing  the  RDdss’s  property 
data,  looking  at  all  the  data  at  one  time  is  convenient.  A  simple  way  of  including 
this  feature  is  by  adding  another  switchboard.  The  switchboard’s  buttons  would  have 
VBA  code  associated  with  them,  causing  the  desired  tables  to  open. 


Any  benefits  derived  from  this  thesis  work  were  specifically  aimed  at  the 
USMC.  However,  it  does  not  have  to  end  there.  Like  the  USMC,  other  branches 
of  the  United  States  military  must  deal  with  the  problem  of  how  best  to  assign  their 
service  members  to  schools.  Since  all  the  services  require  their  enlisted  personnel  to 
take  the  ASVAB  test,  the  approach  used  in  our  prototype  might  prove  an  ideal  solu¬ 
tion.  Further,  our  efforts  may  also  contribute  to  the  reengineering  of  other  assignment 
models.  So,  this  thesis  work  could  actually  benefit  all  branches  of  the  United  States 
military. 
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APPENDIX  A.  ACRONYMS 


Acronym=  >  Meaning 

AMPL  A  Modeling  Language  for  Mathematical  Programming 

ARMS  Automated  Recruit  Management  System 
ASVAB  Armed  Services  Vocational  Aptitude  Battery 

BN  A  By  Name  Assignment  System 

BPWin  Business  Process  for  Windows 

COTS  Commercial-off-the-shelf 

CPlex  Optimization  Package  for  Complex  Linear,  Network  and  Integer  Programming 

DSAI  Decision  Support  Associates,  Inc. 

DSS  Decision  Support  System 

ELS  Entry  Level  School 

ICOM  Input,  Control,  Output,  Mechanism 

IDEF  Defense  Institute  Modeling 

IDEFO  Business  Process  Modeling 

MCRD  Marine  Corps  Recruit  Depot 

MCT  Marine  Combat  Training 

MODS  Military  Operational  Data  Store 

MOS  Military  Occupational  Specialty 

PEF  Program  Enlisted  For 

RDl  Recruit  Distribution  Input  File 

RD3  Recruit  Distribution  Output  File 

RDdss  Recruit  Distribution  Decision  Support  System 

RDM  Recruit  Distribution  Model 


USMC  United  States  Marine  Corps 

VBA  Visual  Basic  for  Applications 
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APPENDIX  B.  AS-IS  RD  BUSINESS 
PROCESS  (IDEFO)  MODEL 


Optimization 

Options 


Dictionary 


Previous 
Run  Data 


USED  AT:  AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 

_ NOTES;  123456789  10 


■ 

WORKING 

READER  DATE 

DRAFT 

— 

RECOMMENDED 

PUBUCATION 

Opfimization 

Options 


Special 

Assignments  File 

SNA  Extract _ 

RD1  File _ 


Input 

Processing 


Input 

Processing 

Data 


Approved 

Assignments 


AUTHOR;  Kevin  JSnoap 
PROJECT:  RDM  Project 

NOTES:  123456789  10 


DATE:  12/11/97 
REV;  7/25/98 


■ 

WORKING 

READER  DATE 

DRAFT 

RECOMMENDED 

PUBUCATION 

CONTEXT: 

“■b_  ^ 

A1 


Raw  Data 


Data  Manipulation 


AUTHOR:  Kevin  JSnoap 
PROJECT:  RDM  Project 

NOTES:  1234S6789  10 


DATE:  12/11/97 
REV:  7/25/98 


■ 

WORKING 

READER  DATE 

DRAFT 

RECOMMENDED 

PUBLICATION 

CONTEXT: 

CZD 

A1.2 _ 


Raw  Data 


Model 

Manager 


Special 

Assignments 

Manipulation 


Data  Input 


TITLE: 
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AUTHOR:  Kevin  JSnoap 
PROJECT:  RDM  Project 

NOTES:  123456789  10 


DATE:  12/11/97 
REV:  7/25/98 


■ 

WORKING 

DRAFT 

RECOMMENDED 

PUBLICATION 

C=l 


Raw  Data 


Generate 
Quota  from 
BNA  Extract 


Model 

Manager 


Change 

Quota 

1 

Priority 

2  1 

Data  Input 


TITLE: 


Quota  Manipulation 


USED  AT: 


[author:  Kevin  JSnoap 
PROJECT:  RDM  Project 

NOTES;  1234S6789  10 


REV:  7/25/98 


■ 

WORKING 

READER  DATE 

DRAFT 

RECOMMENDED 

_ 

PUBLICATION 

Raw  Data 


Create 
New  S.A. 


Model 

Manager 


Find 

All  S.A.’s? 


^  S.A.  I 

3  I 


Delete 

S.A. 


Delete 
All  S.A/s 


Data 

Input 


NODE:  [TITLE: 

A1.2.1.2 


Special  Assignments  Manipulation 


NUMBER; 


52 


USED  AT: 

AUTHOR:  Kevin  J  Snoap 

PROJECT:  RDM  Project 

DATE:  12/11/97  li 

WORKING 

READER  DATE 

CONTEXT: 

REV:  7/25/98 

DRAFT 

□ 

RECOMMENDED 

f  1 

NOTES:  123456789  10 

PUBLICATION 

A1.2  ^ 

View  RD1  File 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 

NOTES;  123456789  10 


DATE:  12/1(V97 
REV:  7/25/98 


■ 

WORKING 

READER  DATE 

DRAFT 

RECOMMENDED 

z 

PUBLICATION 

CONTEXT: 

A1  P 


^  a  Optimization 

Optimization  |  mp^t 

Choice 


Model 

Manager 


Previous 

Run 

Data 


delete 

Runtime 

Parameters 


Run 

Tune 

|lnput 

iChok 


Choices 


— m — 

Runtime 

Parameters 


rcreate  New 
Runtime 
Parameters 


Select 

Runtime 

Input 


Run  Time  Input 


NODE: 


TITLE: 


Run  Time  Options 


NUMBER: 


53 


USED  AT: 

AUTHOR:  Kevin  J  Snoap 

DATE:  12/17/97 

■ 

WORKING 

[reader 

date! 

CONTEXT: 

PROJECT:  RDM  Project 

REV:  7/25/98 

DRAFT 

- 

Ai  a 

RECOMMENDED 

NOTES:  123456789  10 

PUBLICATION 

Create  New  |Dirtionary 

rv-  ..  ffl  Choices 

Dictionary 


Dictionary 


Model 

Manager 


Edit  I 
Dictionary 

=—M  : 

P" . . 

Delete  | 
Dictionary  i 

_ 4  0 


J 


Select 

Dictionary 

5 


Selected 

Dictionary 


TITLE: 

Dictionary  Selection 

NUMBER: 

_ 1 

USED  AT: 

AUTHOR:  Kevin  J  Snoap 

DATE: 

11/30/97 

WORKING 

KESii 

CONTEXT: 

PROJECT:  RDM  Project 

REV: 

7/25/98 

DRAFT 

AI  * 

RECOMMENDED 

NOTES:  123456789  10 

— 

PUBLICATION 

Selected 

Dictionary 


School  Data 
Maintenance 
1 


Model 

Manager 


L 


PEF  I 
Maintenance 

2  I 


Property  1 
Maintenance  ^ 

3  I 


■ 

Dtcta'onary  Input 


NODE:  \tTTLE: 


Dictionary  Maintenance 


I  NUMBER: 


A1^ 


DATE:  12W/97 
REV:  7/25/98 


■ 

WORKING 

READER  DATE 

DRAFT 

RECOMMENDED 

PUBUCATION 

CD 

[ 

A1.S 


Schools  Using 
PEF  Viewer 


Viewed  School  to 
PEF  Association 


Release  School  | 
Numbers?  I 


School  Data  1  Dictionary  Input 

Browser  I -  - 


TITLE: 

School  Data  Maintenance 

NUMBER: 

1 _ 

USED  AT:  AUTHOR:  Kevin  JSnoap 
PROJECT:  RDM  Project 


INOTES:  1  23456789  10 


DATE:  MM  111 . Ill  INI 

REV:  7/25/98  _  DRAFT _ 

RECOMMENDED 

_  PUBLICATION 


READER  DATE 

CONTEXT: 

CZI 

a 

A1^.1 

Selected  ^ - 

Dictionary  Create  New 
- r-*  School 

1 


^Edit  School 
Data 

2  :i 


viewed  School  to 
PEF  Association 


SchooI/PEF 

Association 

4 


55 


USED  AT: 

AUTHOR:  Kevin  JSnoap 

DATE:  12/10/97 

■ 

WORKING 

CONTEXT: 

PROJECT:  RDM  Project 

REV:  7/2S/98 

DRAFT 

CZl 

RECOMMENDED 

NOTES:  123456789  10 

— 

PUBLICATION 

A1^  '=3 

Model 

Manager 


Property  Maintenance 


NUMBER: 


56 


Solver 

NUMBER: 

1 

USED  AT: 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 


DATE:  12/16/97 
REV:  7/25/98 


READER 


DATE  I  CONTEXT: 


[NOTES:  123456789  10 


WORKING 

DRAFT _ 

'  RECOMMENDED 
PUBLICATION 


RISC  Input  f  Quota  Find 


Optimization  Quota  Find 
I  Results 

1  a 


PAT  Line  | 

Optimization  t-a  ^ 

^  I  PAT  Line 

2  il  Results 


Properties  | 
Optimization  1^ 

sp  Results 


RISC  Output 


TITLE:  OF,  PAT,  Prop,  Apt  Optimization  (Default)  Option  j  NUMBER; 


USED  AT:  AUTHOR:  Kevin  J  Snoap 
PROJECT;  RDM  Project 

_ NOTES:  1  2  3  4  5  6  7  8  9  10 


DATE:  12/11/97 


Input  Processing 
Data 


I 

WORKING 

DRAFT 

RECOMMENDED 

PUBUCATION 

Validating 

Results 


Export  g  Approved 

RunTime  r-A^onui - ► 

Results  S  Reports 

3i  ^ 


Output  Processing 


59 


APPENDIX  C.  TO-BE  RD  BUSINESS 
PROCESS  (IDEFO)  MODEL 


BNA  Extract 
RD1  Re 


Special  Assignments  & 


Reclassifications 


RDdss 


Approved  Assignments 

Graphs 

Reports 


Query  Results 


61 


AUTHOR:  KovinJSnoap 
PROJECT:  RDDSS 


NOTES:  123456789  10 


DATE:  5^17/98 
REV:  7/2S/9B 


F 

WORKING 

READER  DATE 

DRAFT 

□ 

RECOMMENDED 

■ 

PUBLICATION 

MODS 


Approved  Assignments 


AO 


RD  DSS 


USED  AT: 

AUTHOR:  KavinJSnoap 

DATE:  5/17/98 

■ 

READER 

DATE 

CONTEXT: 

PROJECT;  RO  DSS 

REV:  7/25/98 

DRAFT 

RECOMMENDED 

NOTES:  123456789  10 

_ 

PUBLICATION 

AO 

NODE: 

A1 

TITLE: 

Import/Export  Data 

NUMBER: 

_ r  . 

62 


USED  AT:  AUTHOR:  Kevin  JSnoap 

PROJECT:  RD  DSS 


}NQTES:  123456789  10 

MODS  I 


■ 

WORKING 

READER  DATE 

DRAFT 

RECOMMENDED 

PUBLICATION 

Unacceptable 

Result 


School  I 
Maint.  |- 


School  to  I 
IPEF  Maint.  Is 


Fundamental 
Property  I 
Maint.  | 


Logical 

Property 

Maint. 


School  to  I 

Property  Li _ _ 

Maint.  I  Maintaned 
_ 6  I  Data 


63 


64 


AUTHOR;  Kevin  JSnoap 
PROJECT:  RDDSS 


NOTES:  123456789  10 


DATC:  S/17/98 
REV:  7/22/98 


■ 

WORKING 

HE/«DER  DATE 

DRAFT 

RECOMMENDED 

PUBLICATION 

Analyzed 

Result 


Maintsuned 

Data 


MODS 


Generate  Assigned  j 
Marine  Report  ^ 

J 

===M 


DSS 

Manager 


Generate 

UnassIgned  Marine' 
Report 

2 


Generate  Entry  | 
Level  School 
Report 


Reports 


A6 


Generate  Report 


65 


66 


APPENDIX  D.  RDDSS  VBA  CODE 


1  Form  trmAnaVzBRBsut 

2  C(xl» 

3  1  \A»tt*<ig  VB_Nm»«*FoiTTU»nTAii«^f2Bfto*jr 

4  2  Altibuto  VB_Craatat)l»  -  True 

5  3  AlWtuto  VB_Pr«d9d»«dW  -  7n» 

6  4  AiiribuiaVB.EJiMMd-Patw 

7  5  Opdon  ConiMra  DalibM 

8  6  Opbon&vich 

9  7 

10  a  OimbooSctiooMMignmniAsBooisan 

11  0 

12  10 

13  11  Priv«iiSubbnE)4t.Clck() 

14  12  On  Emr  GoTo  EiT_^8)E)dLCtck 

15  13 

16  14 

17  15  DoCmlCtoa# 

18  16 

17  BdUanEidLCIck; 

18  BdlSub 
10 

20  EiT.btiEidLCIcIc 

21  M0BoK&r.OMCripion 

22  Hnurs  E)iU>8>Eidt_Cick 

23 

24 

25  EndSub 

27  Pr1vW»S(4)bnSctK»Waal9«T«nts_^ 

28  On  Error  QoTo  ErTj*)Soiool4«i(^¥T«nb_Clclc 

29 

30  DimsiOacNtroAsSvIng 

31  MnalUniCrttBrtaAsStIno 

32 

33  -SatSwIN] 

34  booSchooMsatirmini  -  Tn» 

35 

36  'CkNo8»cuT«Mfann 

37  DoCmiaoM 

38  '  Opan  apocUM  torn) 

39  aOocMMua  ■  liiiScIttotAaBtownmar 

40  DoC(rd.Op«ir^xTnsOocNHiw. .  .sUnidCVito^ 

41 

42 

44  E]«Sub 

45 

46  Err^bttScttooWiaisnnwMs.ClcIc 

47  ErT.Daao1p8on 

48  RaMTM  E)<U>*iSdwoWsd9mMils_Clck 

40 

50  EndSub 

51 

52  FVimtt  SO)  b*>Sa>MrAsycnciw*,CXc)(0 

53  Cb  Error  GoTo  Err  t*£(A«rAsign«neMs_Cick 

54 

55  OlmtiOoc^tam»AsSMno 

56  Dim  slJniCillaria  As  Sting 

57 

58  'CkMtactfranltann 
SO  OoCmlCiOM 

60  '  Opot)  apoctflod  form 

61  «OocNan»  -  'tmAsaigmwngteiir 

62  OoCrTd.Op«rfH3tmsC<KNm.  ..stJrACnteria 

63 

64  E94Li*>SolwrA9ai9yr«nk  Clctc 

65  ErAStib 

66 

67  £rr_M>SaMtrAad9n«tNi_Cick: 

68  Ma^oxErr.Daseilpian 
68  BMura  EdU>ttSalMrAaif7¥T«nl3_C8ck 

70 

71  EndSub 

72 

73  PrtwBli  Sc8)  bt)ljh*9rio«Mvirw8_Ctc^ 

74  Ob  Error  GoTo  Etr_b>Oi— io»r«  Wnas.Cfcfc 

75 

76 

77  OtnMGOLAsStfng 

78  Otn  r«c  As  nwrordmi 
78  OimcfclAsDMibM 
80 

81  Soidbt -CwranXXiO 

82 

83  ‘tf  twnun<Mro(unaa8lgn«dnnarirMo>0.  tMndsabtotfw 

84"**«iT^U^CowKPEF)  AS  TotaUura^Md  FOOM 

85  S«rw><l)l.O|Mi)nscordMV9tSCl.dbOpartSiiap3no(] 

86  t(r«cnbMJhiaai0wd>Olhar) 

87  lytaf^oxr  AlkMitMwwoassioned.') 

88  EIm 

89 

80  OiTTtslOocNHis  As  Sting 

91  Dim  sUnkCrterU  As  Sting 

92 

80  ’  Gloss  tiocwTSnl  form 

94  DoCmlOoss 

95  -Oponspsciflsdfarm 

86  sOocMm  -  ImlJhassiitisrMvina^ 

87  OoOmlOpsnFdrmalOocNKTW. . ,  sUnkCrilwia 
98 

98  Endll 
100 
101 

102  EsdLMiLhSBiigMMvtits.CIcIc 

103  E}4IS(8> 

104 

lOSErr  bbUwaiiOsditeinss  CIcic 

106  ErT.Doa(7ip8on 

107  taim  E3tU>ttUhssaigB(MiinBS_Clci( 

106 

109  End  Sub 

110 

111  PrK«l»  Sub  CormsndB.ClckO 
1120r>  Error  GoTo  EiT_CotnrT«ndB_Clck 

113 

114  DimaiOacNamBAsSttig 

115  Dim  sajnUGtiiaris  As  Sting 

116 

117  'CtosatiscuTsnlfarm 
116  DoCmlCloaa 

119  ’OpsnapscUisdtarm 

120  stfkicfteTW  -  nrirflMLluWn_SwitchCic«rtr 

121  DoCmlCpsnFdrmaOocNMns. . .  sUnkCriisria 

122 

123  E#_CarnTandBjCklc 

124  EiitSub 

125 

1 26  Err_Corrrrand6_Caclc 

127  hb^OK  Err.Osscripfan 


131  128  Ftasurrs  EjfLCornrBnfi.Ctck 

132  129 

133  1»EndS4ib 

134  131 

135  132 

136  i33PrimteSU>Fom\.Osac«vsuO 

137  134 

138  135  It  booSchoolAsslTvrKnt  Than 

139  136 

140  137  DimstSQLAsStlrrg 

141  138  DimiAsInMosr.iAsIntogsr 

142  139  OimrocAsnecordMirscI  AsAKordMl,  rsc2AsHBcor(lMt 

143  140  Obncfcl  AsDsabsM 

144  141 

145  142  Sst<8>l-Cvro)4X)0 

146  143 

147  144  ‘CroUsaaUsugttlrsftlsndfilvMii^ussdduringtw 

148  145  AppicsIonSsCplion  ’Confirm  Acfon  ONriof.  Fsiso 

149  146  'DstolstMlsbioifilatBsdywdsb 

150  147  OsMsTsbb 

151  148 

152  149  d>1  .Emcuii  “CBEATE  TABLE  PERCENTAGE  (CoursoNisttisr  TEXT.  AMOS 

153  TEXT.  Ouoia  INTEGER.  Anigisd  INTEGER  PvcantQS  INTEGER);' 

154  ISO  Appicsfon.SsCpIion’CotrfirmAcfcmaNrte^,  Trus 

155  151 

156  152  stSOL- •SELECT ’FROM  PERCENTAGE;- 

157  153  Sot  roc  «  dbl  .Opennocardso1(9tSCL.  <DOponOynsMO 

158  154 

159  155  srS<]L-*SEL£CT’FROMqiyTotBCuobForfta»C«DERBy 

160  156  Sot  roci  >  <l>1.0penRocordBe((8tSCL  dbOponSnspidwO 

161  157  stsa  -  *SELECT  ’  FROM  qryToblQjolsFI«BdR>rFUi  ORDER  BY 

162  SCo(ssoNunt)or_R(;‘ 

163  158  Sot  roc2  >  dbl.OponRocordMKstSCL  dbOponSrwpshol) 

164  150  '  EnsurotwroaroMiAMOintiorocordi 

165  160  lirocI.EOF-FtteTbon 

166  161  llfocZEOF-FsboThon 

167  162  roc1.Mos«Laal 

166  163  roc1.M(MoFlrat 

169  164  roc2MovoLHt 

170  165  rocZMtboFirst 

171  166  'Rlttt  PENALTY  tsbto  wit)  tw  quota  vakios  tor  Iw 

172  167  Fort- 1  TorocI.RBCordCounl 

173  166  roc.AddNow 

174  169  roctCoursoNuiNior  -  roclISCoursoNurrbsr  FX 

175  170  fOCtAMnS-focItAMQS.FK 

176  171  rodOuott.recllSumOFQjoia 

177  172  rac.U|xMs 

178  173  rocIMMNskI 

179  174  Nb«  I 

180  ITS  roc.MowFlr3t 

181  ITS  ‘Updaislw  PENALTY  kbit  Wit)  tioporcanbgoof  quota 

182  177  Fori*  1  Torse.  RBOOrdCouM 

183  178  rscZMouBFtsI 

184  179  Fori-1Toroc2RocordCou)ii 

185  180  tl  rsciCoisaMifTbsr  -  rec2!SCo(nsNurrtior_FK  Then 

186  181  It  roctAMOS  -  roc2tAM06JK  Then 

187  182  rec.E<8t 

188  183  ioc!A3aigMd-rac2]CounORscafYow_PK 

189  184  tocIPoroontaoe«lnl((roc!As9iij)ed/ 

190  rec!Quota>*100) 

191  185  roc.UpdhlB 

192  186  EidlFor 

m  187  End  If 

194  188  Endll 

196  189  roc2Mw«rte« 

196  190  'If  r)eirwichwnshNjnd.t>anfieparcanifilis 

197  191  U)-i«c2.RBoardCountThan 

198  192  rec.Edt 

199  193  roclAsgignod  -  0 

200  194  racIPotcont^-O 

201  195  rec.UpdaiB 

202  196  Endll 

203  197  Nmj 

204  198  roc.|ybvoNM 

206  199  NnOl 

206  200 

207  201  End  n 

208  202 

200  203  EndH 

210  204 

211  205  roc.ClDss 

212  206  racl.Clooo 

213  207  roc2.Cloao 

214  206  dbl.Clooe 

215  209 

216  210  'Raamtiotim 

217  211  booSchoolAaaivsnenl  -  FNae 

218  212  Ebe 

219  213  '  Oolils  t>0  PBTCENTAGE  W4o 

220  214  DoMoTafalo 

221  215  End  If 

222  216 

223  2l7EndSub 

224 

^  FonnJm)As«7snonAowt 

227  1  ABrffauto  VBJbme  >  ’F«rni_frTnAaai9)tTBntRHjr 

228  2  AltibutoVB.CroMUe.Tnjo 

229  3  AttibutiVB.PreaKlwadld-Truo 

230  4  AltibutiVB_&q)osod-Faba 

231  5  Option  CotTporoDaMhoM 

232  6  OplianE:v«dl 

233  7 

234  8 

235  9  PrfvwJ»SubFcrm.CufrsniO 

236  10 

237  11  Dim  stSCL  As  Sting 

238  12  Olmroc  AsFbcardMl 

239  13  Dim(l>1  AsOatNiase 

240  14 

241  15  Sotdbl-CurraniObO 

242  16 

243  17  'C4lC(dsM9)ohigh.avaraoa,  and  low  titans  acorss.  Abo.  ft 

244  calctisMottoiHrrberolsolMrssaiismionb. 

245  18  stSGL  -  'SaECT  A«o{Rtwss)  AS  Awngo.  MsidFitiess)  As  Mnfmsn 

246  MniPitiess)  As  Mnimum  Co«iil(Fit)MB)  As  ToblAssift)^  PROM 

247  qryAsaiipnwntftaMJir 

248  19  Sotrsc-dbl.CponRscordBsftstSQLdbOponSnsp^ 

248  20  Mo.untwssAtg  -  InX'sclAvoragD) 

250  21  Mo.wFit)OoMK  -  reclhbudnum 

251  22  Ms.boHtiosAIn  -  rscIMnftnjm 

252  23  Ms.HSolMrAsbgnn«nti-rselToblAnignod 

253  24 

254  25  •  Cifcubbs  ft)s  nunt)Sr  ol  )twnu4f  ssbgwtwnb,  »)dft)oloblt))iTber 

255  of  snis^)rtwnb. 

257  qryMmjolyAssi9)MMMinos;’ 

2SB  27  Soiree  -  cbl.QponHecordsidatSCU  (tiOpanSMpafwl) 

250  28  Ma.M)lMiuslAssi0«T»rib-roctToaMMt^^ 


67 


261  M9.MSoivorA3Signmenl9 

262  30 

263  31  ‘  CalciialBS  tie  fxirber  of  irasslgned  marines,  end  Sw  tot^  number 

264  of  assignable  marines. 

265  32  sfrSQL  =  •SELECT  Counl(PEF)  AS  TobUiasslgnod  FROM 

266  33  Set  rec  5=  <1)1  .OpenRecordsetfstSOL  dbCpenSnapshot) 

267  34  MaMTotaJUhassignod  =  recITotanJhassI^ 

268  35  Me.btfTotalAssignabie  >  recITotaJUhassIgned  * 

269  X 

270  37  '  Create  a  table  10  get  tie  fit  and  fil  vwi$t)t$  used  during  tie  nxi 

271  38  A|)pIcafion.SeK)pbon  •Confirm  Acfion  Queries',  False 

272  39  tDf  .Execute  •CREATE  TABLE  COMSTANTS  {ConstantNamo  TEXT.  inWaJua 

273  40  OoCmd.TranslorTesd  acImporlFbted.  *ftlfiLData  Export  Specificalon’, 

274  CONSTANTS.  •C:\ToeoFUrrtAmpJDetaVdm.dar 

275  41  AppIcatlan.SetCpIion 'Confirm  Action  Qieries',  True 

276  42 

277  43  sfrSQL  =  -SELECT  IntValUB  FROM  CONSTANTS;- 

278  44  Set  rec  *  dbl  .OpenFtecordselfstSa.  dbOpeoSnapshotJ 

279  45  Me.txf  IfWelglit  =  recUnfi/aLie 

280  46  rec.MoveNext 

281  47  rec-MoweNeid 

282  48  Me.txtRIWelgbtarBCllnlValue 

283  49  rec.Oose 

284  SO 

285  51  '  Ftemove  tie  created  able 

286  52  dbl.Execute -DROP TABLE  CONSTANTS;- 

287  53  dbl.CSose 

288  54 

289  55 

290  56  EndSUb 

291  57  Private  Sub  OosejCIckO 

292  58  On  Error  GoTo  Err_aos8_(ack 

293  59 

294  60  dm  stOoc  Name  As  String 

295  61  Dim  stUnkCriteria  As  Siring 

296  62 

297  63  '  Close  t»  cunent  form 

298  64  DoCrnttOose 

299  65  'Open  specified  form 

300  66  slbocName  s  'IrmAnalyzoResuir 

301  67  Do<>i±Oporift3rmsI)ocNanie. , ,  silJnkCrItefia 

302  68 

303  69  EriLCtose.acfc 

304  70  ExdtSub 

305  71 

306  72  EiT_Ck)60_CIclc 

307  73  MsgBox  Err.DeGcriplon 

308  74  Reeune  EriLOoso^CIck 

309  75 

310  76  End  Sub 

311 

312Fbrnt  trmCriangeGradDate 

313  Code 

314  1  ABrIbute  VB.Name  =  'Fbrrn.frraCtiangeGradDate' 

315  2  Afribute  VB.Creatable  =  True 

316  3  Altibute  VB..Predec[aredld  =  True 

317  4  Attibute  VB_E)pos8d  c  Fatee 

318  5  Op6on  Conpare  Database  , 

319  6  Option  E)plclt 

320  7 

321  8  Private  Sub  btiOiwigeDate  Clcl<) 

322  9 

323  10  ’  Ctiange  tw  specified  gradualcn  date  In  lie  MARINE  table 

324  11  AppicaHoaSeicpaan 'Confirm  Action  Ojerles-.  False 

325  12  DoCnid.CponOuefy  *qryChangeGradOate- 

326  13  Applca8on.SotOp6cn*ConfirmActiaiQjBrlos',  True 

327  14 

326  15  'Update  tie  drop  down  1st  for  MCRDQrad  Date 

329  16  Me!crTbMCRD&adDate.RowSource  = -SELECT  DISTINCTRCW 

330  (<tyMCTGradDate],[GradOateI  FROM  [cjryMCTOradDate):- 

331  17 

332  18  '  Force  user  to  refresh  data  before  perfonring  anotier  date  change 

333  19  Me!cmbOays.Enabied False 

334  20  Ma!txMCTaadDate.Enabied « False 

335  21  Me!blnE<tuals.EnaNM  =  Fatee 

336  22 

337  23  '  Provide  a  message  indicaing  tie  change  was  made 

338  24  M^Box'Dato  Change  was  successlti!' 

339  25 

340  26  EndSii) 

341  27 

342  28  Private  Sito  btiEquab.CtckO 

343  29 

344  X  DimvorDab  As  Variant 

345  31  Dim  intOays  As  Integer 

346  32 

347  33  inIDays  =  Me.cmbDays 

348  34  varOata  =  Me.cmbMCRDGradOato 

349  35 

350  36  It  IsNJKvarOate)  =  Fabe  And  IsNJKinlOays)  =  Fake  Then 

351  37 

352  38  *  Format  Ns  date  for  use  in  tt»  OateAdd  luiciiQn 

:K3  29  wOate  =  Format(varDate,  'tllt/ll/tl-) 

354  40 

355  41  -Add  120  days  to  Ns  date 

356  42  varDate  =  DateAddTd*.  intOays,  varDate) 

357  43 

358  44  '  Change  calendar  to  Ns  date 

359  45  MelceCalendar.  Value  s  varOate 

360  46 

381  47  '  Convert  tie  nmr  date  back  into  tie  original  format 

362  48  varOate  =  FormatfvarDab,  -yyyymnskr) 

363  49 

364  SO  '  Place  tie  new  date  bi  tie  *i4per  date  bound- test  boK  on  tie 

365  cafngform. 

366  51  MebdMCT&adOotesverDate 

367  52 

368  S3  -Akwrs  user  to  change  tw^adualon  date  in  lie  MARINE  table 

369  54  MsIbtnChangeDate.Enabled^True 

370  SS  Endlf 

371  56 

372  57  EndSU) 

373  58 

374  59  PrfveteSubrmtoMOTDQradOateJWterlJtidatef) 

375  60 

376  61  DimvarOato  As  Variant 

377  62 

378  63  varDate -Me.crT«MCRDQradOate 

379  64  MetbWCTOadDateVaJuo  =  * ' 

380  65 

381  66  If  l5^U(VBr0ate}  =  Fatso  Then 

362  67 

383  68  'Format  Ns  date  tor  use  in  tteDataAddfuncSon 

384  69  varDate  =  ForrnatfvarOate.  'ttfl/llfil-) 

385  70 

386  71  -Change  calendar  to  Ns  date 

387  72  MafcUCatendar.  Value  s  varOate 

388  73  MelclJCaiendar.Visibie  s  True 

389  74  MeiembDays.Enabted  =  True 

390  75  MattxtMCTGradOate.Enabted^True 


391  76  MslbtiEquats.Enabied  =  True 

392  77 

393  78  Erxltl 

394  79 

395  80  End'Sub 

396  81 

397  82  Private  Sub  Fqrm_Currenl() 

398  83 

399  84  MelcliCalendar.VisIbie  =■  Fatso 

400  85  MolcmbDays.Enabled » False 

401  86  MsIMMCTGradDate.Enabled  =  False 

402  87  M0!WnEquals.Enabted  *  False 

403  88  MelbteChengeDateEnabted  =  False 

404  89 

405  90  End  Sub 

406  91  Private  Sob  aose_Clck() 

407  92  On  Error  Goto  Err.Oose.CJck 

408  93 

409  94  Dim  siOocNwtte  As  String 

410  95  Dim  stUnkCriteria  As  Sting 

411  96 

412  97  -  Close  the  cwrent  form 

413  98  OoCmlCkse 

414  99  *  Open  spedfled  form 

415  100  sOocNwne  =  f  rmirporl/ExporBwIfchboard- 

416  101  DoCnvlOpenForm  stOocNirTte. , .  sUnkCrileria 

417  102 

418  IQSExtLOoae.Cfck: 

419  104  EjdlSub 

420  105 

421  l066rr_aose_Clclc 

422  107  MsgBox  Err.Description 

423  108  Resume  ExlLOose.CIck 

424  109 

425  llOEndSub 

426 

427  Form:  ImuCtass 

428  Code 

429  1  AttlboteVB_fteme.-Forrp_»rmCbss- 

430  2  AairlbuteVB_Oeetafale  =  Tiue 

431  3  A8ributeVB_Predecl»edld=True 

432  4  Attribute  VB_E]paeed.=  False 

433  5  Option  Compere  Database 

434  6  Option  Exploit 

435  7 

436  8  Private  Sub  blnFlndScliooi_Clcli<) 

437  9  On  Error  GoTo  Err.btiFtndSchooLcick 

438  10 

439  11 

440  12  ScreeaPrerfousControLSeiFocus 

441  13  OoCmlDoManultemacFormBar.  acEdJManu.  10. .  acMenuVerTO 

442  14 

443  15  EjdOjtnFtidSchool.Cfck: 

444  16  EbtSub 

445  17 

446  18  ErrJjhFbidSchooLCIck: 

447  19  MsgBox  Err.Descrtpton 

448  20  Resunm  ExlLbtiFlndSchooLCIck 

449  21 

450  22  EndSub 

451 

452  Form  fimCbssQuotaPenttVAndRt 

453  Code 

454  1  Altlbute  V8_^bmB  =  'ForrrutnnCteLsaQjotaPenatyAndFir 

455  2  AttlbuteVB_CrBatabto  =  True 

456  3  AOriboteVB.ProdeclarodldsTruo 

457  4  ABrIbute  VB^Eiposed::  False 

458  S  Option  Compare  Database 

459  6  Option  Ejpicit 

460  7 

461  8  Prbate  Sito  DtoGo.CIckt) 

462  9 

463  10  OimverUDateBound 

464  11  DlmtegHoiaAsLong.  tigMnAsLong.  hgSec  AsLong 

465  12  Dimki^tartAsLong.  kigEndAsLong 

466  13  Dim  stSQL  As  Sting 

467  14 

468  15  -Staftetwlmer  tor  dspbying  tie  fme  taken  for  Ns  subroutine 

469  16  tigStaft  =  T1nter 

470  17 

471  16 

472  19  -Prevanb  the  user  from  going  bKk  to  chteige  tie  MCTQradOatounll  a 

473  fitiess  file  is 

474  20  -  made,  or  tie  reset  butten  is  pushed. 

475  21  MalMCTT^adDate.Enabied  =  False 

476  22  iwUDateBotfid » Me.UDateBouid 

477  23 

478  24  ‘Generate  tie  quota  and  penalty  tiles 

479  25  aJOta_Penally  (varUDateBoiaid) 

480  26 

481  27  -Ifxlato  the  quotaipenally  records  on  Ns  term 

482  28  stSQL  =  -SELECT  DISTINCIFCW  [CLASSI.[SCotrsot*jrtber_FK]. '  & 

483  29  •lCLASSl.[AMOS_FKl.tCLASSl.iaassMflrtior_Ptq,  [CLASSI.IReporlDatel  ' 

484  X  'ICLASSJ.tCUotal.  [CLASSMCtassIndexl,  |PENALTY).taassJndox_Rq. ' 

485  31  -[PENALTYJ.lPenallyl  FRCM  flCLASS]  INNER  JOIN  [PENALTY]  ON '  & 

486  32  -|CLASS).ICIasstndexJ  =[PENALTYJ.iaasslndex_FKl):- 

487  33  MeRecordSotacenstSOL 

488  34 

489  35  '  update  states  of  status  tees  bcK 

490  36  MelStalus  =  -Working....' 

491  37 

492  38  '  Cal  tie  Rtiess  procediro 

493  39  Fitiass 

494  40 

495  41  '  ipdaiB  states  Of  states  told  box 

496  42  MsIStahB  z  'Rlee  generated!' 

497  43  OoCnPBeep 

498  44 

499  45  -  Raeords  tie  stop  tme  for  running  Ns  sDroutne 

500  46  tigEnd  s  Timer 

501  47  -  DetenNne  total  sees 

502  48  tigSec  s  hgEnd  -  hgStart 

503  49  -  Determine  tjtat  hours 

504  SO  kigliv*ti9Sec\3600 

506  51  '  Detenitne  total  rnns 

506  52  tigMn  =  (tigSoc*togHoor-3600)\60 

507  53  •  DetemlTio  tie  secs  remaining 

508  54  kigSec  -  (tigSec  -  (to^n  •  60)  -  (hgHotr '  3600))  \  1 

509  55  MsgBox  This  oporafion  took  *& hgHour &- hour{s), -itigMn&- 

510  frtfXs).  -  &  _ 

511  56  'and  •  &  IngSoc  4  -  secs.'.  vbOKCnly.  ftecruit  Distibultoo  MxfeT 

512  57 

513  58  MobtnProparoAndEwcoteSoliter.SolFdcus 

514  59 

515  60 

516  61  End  Sub 

517  62 

518  63  Private  Sub  blfiGo_MouseOown(Bulton  As  Integer.  Shift  As  Integer.  X  As 

519  64  Y  As  Single) 

520  65 


68 


S21 


524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 


540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 
55t 
552 


561 

562 

563 


570 

571 

572 

573 

574 
STS 
578 

577 

578 

579 

560 

561 

582 

583 
564 

585 

586 
567 


590 

591 
582 


595 

566 

597 

598 


601 

602 

603 

604 


607 


610 

611 

612 

613 

614 

615 

616 

617 

618 
619 


623 

624 


626 

627 


66  HWStota-'Worlong....' 

67 

68  CndSii} 

70  F7h«teSii>b*iPre(w«AftdE»culBS<*er_CSclc() 

71  On  Error  Goto  ErrJjfciPrepafeAnd&oecuteSotvBf.CSck 

n 

73  Oim  stOocNarm  As  String 

74  Dim  stUnlcCritBria  As  S^ing 

75 

76  ■  C3o8o  c  vrenl  lotm 

77  DoCmdCtose 

78  ‘  Open  specified  fom 

79  sfOocNams  -  'IrmPrepareAndEwctJteSolMr' 

80  DoCmd.CpenForm  sCocNsme, . ,  sttif9(Critoria 

81 

82  E»LWnProptraAndE»ctiteSok«r_aick: 

83  ExitSub 

84 

85  ErrJbtnPrepareArKlEMBCUlaSofwr_Cic)c 

86  MsgGox  Err.DMCripbon 

87  Rsaurro  EaLbkiPrepareAndExicutoSaher.Ctck 

88 

89  EndSub 

90 

91  Private  S»ij  btiHelmPreMoiJB_C*ck() 

92  On  Error  QoToErrJ*iRo«ixnProvious_CSck 

93 

94  Dim  siDocNHiie  As  Sfring 

95  Dim  stUnkCriteria  As 

96 

97  'Ckaettecurrenlform 
96  DoCmlCloae 

99  '  Open  specilied  form 

100  sDocNsto  m  ‘frmPreprocessing&EiecufonSMichboartr 

101  DoCmdOpertForm  sOocNtme. . .  sLtnkCritoria 

ice 

103  ExLbteFtetemPrevious.Ctck: 

104  Ext  Sub 

105 

106  Err_t)tenaAmPrewoui_Cic)c 

107  MigBox  Err.Oeacriptian 

108  Resurm  EaLbteFtokanPrevtous.CIck 

109 

nOErrdSib 

111 

1 12  Private  Sub  crwbCowseNunbefFind^AlterlJpdateO 

113 

114  DimRAs  Hscordsec 

115  SetR-Me.RecordseK33oe 

1 16  R  RfjdFast  ^SCol»se^ka1t)of_FKl  -  *  4  Chr(34)  & 
IMIaTbCarseNisTiMEind]  &  C3v(34) 

1 17  Ms.Boaknaik  •  RBooknwk 

118  hMIcmbCourseMsrberrsrd] «  bU 

119  Ma.Penaliy.SeiR>cus 

120 

121EndSti) 

122 

123  Private  Site  ForTTi_Ctaf  enlO 

124 

125  'Provonteteo  user  from  creating  fie  AMPL  fibs  unbl  a  MCT 

126  '  graduation  date  is  entered 

127  If  lsf4A{Me.MCT&sdOato.Vak»)  Tben 

128  MB)bteG3.EnrfM  >  Faba 

129  hMStebsEn^M  -  Fabe 

130 

131  '  Alows  tie  user  to  create  tie  quote  and  penalty  fites 

132  Etee 

133  iVtelbtoGo.Enabted  .  True 

134 

135  End  If 

136  '  update  tie  stetos  of  tie  stkkn  tad  box 

137  MefStetos  -  ‘ ' 

138 

139  End  Sub 

140 

141  Private  Sub  MCTQradOateJUterljpdate() 

142 

143  Dim  varDate  As  Variant 

144 

145  varOato  -  MaMCTOradOste 

146 

147  If  taNiAfvarOato}  >  Fates  Then 

148 

149  MelbtoGo.Enabted.Tfue 

150  MefSteh&Enabted.Trus 

151 

152  '  Format  tiis  date  tor  use  in  fwOataAiddtunclion 

1  S3  varDate  -  Famal(varDate.  *1  «»/•«•*'} 

154 

155  ‘Add  120  days  to  Hs  date 

156  varDate  .  OataAddr<r.  120.  varDate) 

157 

158  ‘Convert  tie  near  date  back  into  tie  original  format 

1 59  varDate  -  Formal(varDato.  *yyyynvixl<r) 

160 

161  ’  Ptece  tie  new  date  intis 'upper  date  baurxf  teit  box  on  tie 
caingform. 

162  MB.UOato8ound  .  varDate 

163 

164  Qse 

165  Me!MnGo.Enabted  -  Fates 

166  MefStetu  Enabted  .  Fates 

167  End  If 

168 

168  End  sub 
170 


628 

629FortT[  frmFind 

630  Code 

631  1  AftibutoVB.ftems- 'Fbmu.frmFind' 

632  2  Attixite  VB.Creetabie  >  True 

633  3  Altibuto  VS.Predecteredid  -  True 

634  4  AtttouteVS.&posed- Fates 

635  5  CDpton  Ojmpere  Oatabese 

63S  6  Caption  Eiptcit 

637  7 

638  8  Private  Sub  btiFind.CSckO 

639  9  On  Error  (3oTo  Err_bterin«LcSck 

640  10 

641  11  'Screen.PreviousContolSeFocus 

642  12  ForrmtfmSchoofToPropertyMainLSelFocus 

643  13  DoCmlFnJRecQrd  MB.cmbCouasbisnber. .  True, .  True,  acAI 

644  14  'DoCffld.OeMeruitom  acFonrear.  acEdiManu.  10. .  acMenuVerTO 

645  15 

646  16  BdUiteFindjCtck; 

647  17  EteiStto 

648  18 

649  19  Err^btoFmiLCtcIc 

650  20  k^^oxErr.Dascriplion 


651  21  flesune  ExtJJ*iFind_CSck 

652  22  EndSub 


653  23 

654  24 

655 

656  Form:  frrrFondamentBProperty 

657  Cods 

658  1  Ateibute  V8...NamB  *  'FonrubrnFundamenialPropefty* 

659  2  Athbuto  VB_Creai^  -  True 

660  3  Atebute  VB_Predoclaredld  -  Tn» 

661  4  Altibute  VS.Eiposed  -  False 

662  5  Gpkon  Compare  Database 

663  6  Option  Bptcil 

664  7 

665  8  Private  Sub  Convmndl  S.Ctckf) 

666  9 

667  10  Ms^Box  'This  is  a  button',  vblnfotmalion,  TesSng' 

6^  12  EndSUi 

670  13 

671  14  Private  Site  bteCtose.CldcO 

672  IS  On  Error  GoTo  Eir.bteCtese.CSck 

673  16 

674  17 

675  18  DoCmd.Oose 

676  19  OoQnd.CpenForm'fiiflMaintonarxieSvwlehboaid' 

677  20 

678  21  ExLbtoCtose.CtcIc 

679  22  EiilSub 

680  23 

681  24  EirJjteCtoeo.CSclc 

682  25  MtgBoxErr.Descriplian 

663  26  Rssums  E]it_blnCtoae_CSck 

685  28  EndSite 

686  29 

687  30 

688  31  Private  Site  cnteFPropertyNteTisFindJUtorlpdateO 

689  32 

690  33  OimRAsRsconteat 

691  34  SetR-Ms.RBcardsa1Ctons 

692  35  RFindFifst  IFPreperlyhtam.PK)  - '  &  Chr(34)  & 

693  Mil[ctit>f  PropertyNMneFind]  A  Cbr(34) 

694  36  Me.Booi(iTBrk.RBoalonari( 

695  37  AteKcnbFPropertyNameFind] .  hU 

696  38  lito.FPropertyNHr«_PKSelFocus 


697 

698 

699 

700 

701 

702 

703 

704 
706 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 


722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 


767 


770 

771 

772 

773 

774 

Tre 

776 

777 

778 

779 

780 


40  EndSite 

41 

42  Private  Site  Conmandl  1_Clcl<) 

43  ‘  Forces  user  to'antor  data  tor  property  name  and  deecription 

44  If  ls^U(Vte.FProperly^telne_PK. Value)  Or  lsNii(Me.Descrip<on. Value) 

45  Msllvterinarield.Enabted.Ftese 

46  MsICperator.&iabted.  Fates 

47  MaiLabell  0. Visible  -  F^ 

48  MBtsufatnrFundBmentePropeny.Vteible  -  Fates 

49  MsIsubfrniFundannnteProperlyUst  Visible  -  Fabe 

50  MsfcntePotenlialValue.  Visible  -  Fabe 

51  MgBox*Younriuit  provide  a ‘Property  Nwne' and ‘Description' 
belore  building  tie  fundamental  aquaf on.* 

52 

53  ‘  Alows  tie  user  to  enter  vetoes  for  tie  fisvdwnental  equaion 

54  Etee 

55  MelMKrineFiekf.Enafalad  .  True 

56  MelOperator.Enabled.True 

57  MelLjteetlO.Visibte-True 

58  If  FonralfrmFLndarventelProperiy .Operator.  Value  -  *in*  Then 

59  MelsobfrmFundamentaProperly.Vaible  -  Fates 

60  MefsUtemFurvtamsntaProper^Ust. Visible  -  True 

61 

62  Etee 

63  MalcmbPotenliaIVa)ue.Visibte  -  True 

64  MeisuMmnFundameotaProperty.Vaible  -  True 

65  HMsUtemFuntenwitaPropenyListVisible.False 

66  Endll 

67  End  If 


69  BidSite 

70 

71  Private  Sub  DsacripliorLjAfterlJpdatoO 

72 

73  Dim  stSQL  As  Sting 

74 

75  '  Forces  user  to  enter  date  (or  propwty  name  and  description 

76  H  lsrU(M».FPraperlyNHr»_PK.Vatoe)  Cr  labtol(Me.Oescriplon. Value} 

77  MBlMwineReld.Enabted  .  Fabe 

78  lAilOperator.Enabled*  Fates 

79  MelLabell  O.Visibte  -  False 

80  MalaubtrmFtxidanienteProperty. Visibie  -  Fabe 

61  MeisubtnrFundameriteProperlyListVteibte  •  False 
82 

S3  '  AkMB  tie  user  to  enter  vetoes  for  tie  fundemental  equaion 

84  Etee 

85  MelMBrineFMld.Enabled-True 

86  MslOperator.Enabled  >  True 

67  toULabell  O.Vitebb  -  Tnis 

88  If  FomellnnFundamBnteProperty.Operabr.Value  ■  ’in*  Then 

89  stSCL- -SELECT  DISTINCT*  4  MellAmfioriold  a -FROM 

90 

FormstfrmFundementePropertylsubfmiFundamentelProperly  List  Value.FK  RowSo 
urce  -  stSQL 

91  MeteuMrmFundamentePraperty.Visibls- Fates 

92  MeteubfnrFundamentePropenyUslVisibte- True 

93 

94  Etee 

95  atSOL-'SELB^' DISTINCT 'AhteHytermeFieU  4 ‘FROM 

96 


97  MrisitefnrAxidamentePropeny.Visteto  -  True 

96  MelsitehmFundamentePropertyLtet  Visible  «  Fabe 

99  Eitotf 

100  End  If 

101 

102  End  Sub 

103 

104  Private  Sub  For(TtBeforetJ|3dato(Canc«l  As  Integer) 

105 

106  (FixidPropTimeStenp] «  Now 

107 

108  End  Sub 

109 

1 10  Private  SUb  Fortn.Cunant() 

111 

112  Dim  stSCL  As  Sting 

113 

114  'stSQL  -  -SELECT  MBrineFMd,  Operator  FHCM  FUNCJAMefl-Al^PROPERIY 
W1£FIE  FPropertyftene^PK  .  -  4  FitodPropNtens 

115 

116 


69 


781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 
8J7 
818 

819 

820 
821 
822 

823 

824 


827 


631 

832 

833 

834 

835 

836 

837 


841 

842 

843 

844 
64S 

846 

847 

848 

849 

850 

851 

852 
653 

854 

855 

856 

857 
856 

859 

860 
861 
862 

863 

864 
8^ 
866 
867 
866 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 
683 
884 
68S 


888 


891 

892 
093 

694 

695 
8S6 
897 


900 

901 

902 

903 

904 

905 

906 

907 


910 


117  •  Forces  to  entef  data  lor  proport/ name  and 

118  If  lsF»J(Me,FPfop0r1yNai»»_PK.  Value)  Or  l3l4jl(Ms.DescrlpttQn.Value) 

119  Mal^noField.Enablod  >  False 

120  MefOperator.  EnaUed  =  False 

121  MelLatxXlO.Visibto  s  False 

122  MelsiKrrrf  undanwitalProperty.Vlsibte  =  False 

123  MelsuMrinFirdannntalPropertyUst  Visible  «  Fake 

124 

125  ■  Mows  user  to  enter  volues  lor  lie  lundafnenWomiaBon 

126  Bse 

127  Me!MarineFieto.Enabted  =  True 

128  MelOporator.EnaUed  =  Tme 

129  Me!LabellO.VisJbb  =  Trua 

130  II  FormsnrmFi«Jan»ntalPrQperly.Operator. Value  =  *ln-  Then 

131  'Update  the  Potential  Value  ist 

132  MolsutHrmFundamanteProperly.  Visible  =  False 

133  MatsuMnuFundamantePfopertyUstVlsIble  =  True 

134  s»«aL  a -SELECT DISTINCT- 8  ktelMuineFleWi*  FROM 

135 

ForrnslfrmFundaineritalPropofVtsuWrmFitodanwntalPropertyUseValuo  FK.Ftow6o 

wees  sISQL 

136  Else 

137  'Update  too  PotenlialValuelsI 

138  StrSOL- -SELECT  DISTINCT- a  MolVbrineFlekJ&- FROM 

139 

ForimIltTnFuridarnentalProparV!sublriTiFi«JarnentalProportylcrntoValuo_FICRciwSou 
rco  =  sbSQL 

140  MtfsuWrtnFundamenhProperly.  Visible  =  True 

141  MalsublrtTiFtjridanwnteProperlyUst  Visible  =  Fabe 

142  End  11 

143 

144  'Set  locus  to  toe  property  name.  This  prevenisprobtem 
associated  with  entering  the  -Cporabr-  object 

145  FProporlyTteine_PK.SolFocus 

146  End  If 

147 

148 

149 

150  End  Sob 

151 

1S2Prhete  Sub  FPropertyNani8_PK>nsrUpdate{) 

154  Dim  strSOL  As  Siring 

155 

156  ‘Forces  user  to  enter  data  for  property  name  and  description 

157  K  lsMJ(Me.FPropertyName_PK.Valje)  Or  lsMil(Me.DescrlpaQn.  Value) 

158  MeiMarlneReU.Enabfed  =  False 

159  MelOperator.Enabled  =  False 

160  MelLabellO.VisIbte  =  Fake 

161  MelsUKrmFundamenblPraperty.Vlsibto  s  Fake 

162  MetsitofrmFmtamentelPropertyLlsLVlsJbte  s  Fake 

163 

164  'Alows  toe  user  to  enter  wfcies  for  toe  hjndttnental  equation 

165  Eke 

166  MetMirineFleklEnafaledeTrue 

167  MelOperatar.Enabied  n  True 

168  MetL^lO.Vkbto  =  True 

169  If  FormsIlrmFundamentaProperty .Operator. Vakje  =  'In-  Then 

170  skSaL  = -SELECT  DISTINCT*  8  MB(literlr»Fi8ld&- FROM 

171 

FbrmsIlrmFundamontalProperlylsiisffinFimdameritelPtopertyLlsllValue  FtCRowSo 
urce  =  strSOL 

172  MelsublnnFurKtamBnbPfoperty.VIsIblo  =  Fabe 

m  MofatofrmFiayfamBnbPfopertyLklVlsIbte  =  True 

176  ^SQL  = -SELECT DISTINCT- 8  MelMarlnenold 8 -FROM 

177 

ForTi*MmPj^rT«ntalProperly!su«finFundarnentalProp0rly[cfTbValuo„FK.R5wSou 

1 78  MafsubfrmFtrtdamBntePToporty .  Vlsibte  =  True 

179  MetsubfrmFitodamentePropertyUsLl^sjbte  ^  Fabe 

180  End  It 

181  End  II 

182 

183  End  Sub 

184 

185  Private  Site  fferlneFMdJUterLlpdate() 

186 

187  Dim  strSOL  As  String 

188 

189  ‘  Update  toe  Potential  Value  bl 

190  srSQL**S£LECTDlSnNCT-8Mo!MarlnoFlekl8-FnOMMAfllNE- 

191 

PortiBlfrrnFundamenttProperlylsublfmFmdamBntalPropertyUsOValuo  FK.Rm6o 
urea  =  stSQL 


ForrnslInnFundamerftdProperVIsijWrinFuidarrentalPropefty'cmbValue  FKftjwSoo 
roes  sfrSQL 

193 

194  End  Sub 

195 

196  Private  Sub  Qperatar_AlterlJpdate() 

197 

196  lfFornB!frmFundamoolaJProperty.Op6ratof.Value  =  -in-Then 

199  MelsubfrrrFundamentalProperty  .Visible  =  Fake 

200  MelsuWrnPifidamanlalPropertyUstVislbte  =  True 

201  Ebe 

202  MetsttolrrTFundamenblProperty.Vlsibte  =  True 

2C3  MalstirfrriPundamenlalProperlyUstVisibte  =  Fake 

204  Endll 

205 

206  End  Sub 

207  Private  Sii>  btnDetete.CickO 

208  On  Error  GoTo  Err  blnOelete.Clck 

209 

210 

21 1  OoCmlDoMBnultam  acFormBar.  icEdManj.  8, .  acktenuVerTO 

212  DoCmclDoMBnultem  acFdrn8ar.  acEdilManu.  6. .  acMenuVorTO 

213 

214E)dLbtoOetete  CScIc 

215  EititSU) 

216 

217Err_brOoleteLaclc 

218  MsgBooc  Err.  Description 

219  Resune  EdLbtoOelete  CIck 

220 

221  End  Sub 

222  Private  Sii>  Conrt«ndt4_C»ck() 

223Cn  Error  GoTo  Err.CorrmandM  Ctick 

224 

225  Dim  stDiaStr  As  String 

226  DimPrsvCtAsContol 

227  Const  EFlR_O6JN0(TE)aST  =  2467 

228  Const  ERfLCeJNOrSET=  91 

229 

230  Set  PreiCti  =  ScreeaPrevlousContot 

231 

232  IITypoOlPrevCtilsToxlSMThen 

233  sOialS1r=l11(VarType(Pre\C8)>V_NULL.ProvCS.-) 


911  234  EbelfTypeaProvCtilslisISoKThen 

912  235  stiTlaBlr  =  lll(VarType(PTOvC9)  >  V_NULL,  PrevCtt  -) 

913  236  EbelfTypeaPrevCtflsContooBaxThen 

914  237  sOatStr  =  ]ir(VarType(PreiCti)  >  V_NULL  PrevCil  “) 

915  238  ase 

916  239  sOalStr  =  - 

917  240  End  II 

916  241 

919  242  AppScation.Rm  -utiHy.wtibJUJtoOiar.  sIDlaEfr 

920  243 

921  244EjtiLCommend14„Clck; 

922  245  BdlSito 

923  246 

924  247Err_Conrf«nd14_Clclc 

925  248  II  (Err  s  ERR.OeJNOTEXIST)  Or  (Err  =  ERa.C8JN0TSET)  Then 

926  249  ResenteNext 

927  250  Endll 

928  251  MsgBoK  Err.DescriptiQn 

929  252  Resume  ExtLComrmndM  CIck 

930  253 

931  254EndSub 

902  255 

933  2S6PrivBte  Sub  Operator  EnlerO 

934  257 

935  258  II  Ms.CperBtor.Value  =  -in"  Then 

936  259  Migl^  The  In' operator  is  not  changeable.  It  is  removed  by 

937  delelng  toe  property.-,  vblnlormation,  'Uhautoortzed  Action* 

938  260  sUMrrrPwvlamentelPropertylistSetFocus 

939  261  Endll 

940  262 

941  263EndS(jb 

942 

943  Form:  IrmConerateflepori 

944  Code 

945  1  A»lbtiti0VB_Namo  =  -Fdrn\_frmGeneratoReporr 

946  2  AHributeVB.&eataWesTrue 

947  3  AlkibutoVB„Pred0clarodld<^True 

948  4  AfirlbuteVB.EipaeedsFabe 

949  S  Optforr  Conpare  Database 

950  6  Option  Bpidt 

951  7 

952  8  Private  Sub  btoAssignmentfteporLCIckO 

953  9 

954  10  DoCmd.OpenReport-rptassignodMarlnes-,  aeVlewPrevlew 

955  11 

956  12  End  Sub 

957  13 

958  14  Private  Sub  btoEntryLevBlSchool_Clck(> 

959  15 

960  16  DoCrri.Openfloport-rptEnIryLevolSchoor.  acVMwPreviow 

961  17 

962  18 

963  19  EndSub 

964  20 

965  21  Private  Sub  btoE)4LCick() 

966  22  On  Error  GoTo  Err_bto&dLCIck 

967  23 

968  24 


989  25  DoCmd-Ctose 

970  26 

971  27  BdLbtoEJtiLCIcIc 

972  28  Bilt&to 

973  29 

974  30  Efr_btoExiL.aclc 

975  31  MsgBaErr.Description 

976  32  Hasune  ExlLbtoBtiLClck 

977  33 

978  34 

979  as  EndS»i> 

960  36 

961  37  Private  Sub  btoUna5slgnedMarineR0port_CSck() 

982  38 

983  39  OoCmd.C^jenFteport  'rptUhassIgnocWarines',  aeVlewPrevlew 

984  40 

985  41  EndSti) 

986  42 

987  43  Private  Sub  Corrnand8_CSck() 

968  44  On  Enor  GoTo  Err_Command8_Clck 

988  45 

990  46  Dim  stDocName  As  String 

991  47  Dim  sUnkCritoria  As  Siring 

962  48 

993  49  'Ctose  toe  cvrenl  form 

994  SO  OoCmdOose 

995  51  'Open  specified  form 

906  52  stDocftori»=TrTTiROM_Maln_Swltidiboard- 

997  53  DoCrirt, C^wnForm StDocName.  ..stUnkCriteria 

998  54 

999  55  E}dt_Commend8_Ctci(: 

1000  56  BdlSub 

1001  57 

1002  58  ErT_CorrTnandB_Clck; 

1003  59  libgBax  Err. Description 

<004  60  Resume  E*ILCommand8  CIck 

1005  61 

1006  62  End&to 

1007 

1008  Form:  Irmlmpart/ExporlSwIlcrtbovd 

1009  Code 

1010  1  ABribute  VB.,NarrB  *  *Fom>_ltTrlirporVE;q5orlSwttliboar«r 

101 1  2  Attribute  VB.Creatabte  s  True 

1012  3  Altobute  VB.PredaclarcdId  =  True 

1013  4  AIHbute  VB.Exposed  =  Fake 

1014  S  Cplcn  Compare  Datebase 

1015  6  Cplcn  BpBcit 

1016  7 

1017  8  Private  Sub  htoBILCIckO 

1018  9  Cn  Error  GoTo  Err  bir£t<LCick 

1019  10 

1020  11 

1021  12  DoCmd.aoae 

1022  13 

1023  14  EjdLbtoExILCIck: 

1024  IS  EritSub 

1025  16 

1026  17  Err.btnExJLCIck: 

1027  18  MigBoxErr.Daacfiption 

1028  19  Resume  EriLbtoExiLCIck 

1029  20 

1030  21 

1031  22  EndSub 

1032  23 

1003  24  Private  Sub  blnE3portRO3_Clck0 

1034  2S 

1035  26  Appfcailon.SelOpeon-Conl)rmAclanQuarls6*.  Fake 

1036  27  DoOmlSetVl/tenings  (Fabe) 

1037  28  '  Exporb  asslgnmanb  to  RD3.txt  file 

1038  29  0por1FID3 

1039  30  ‘  Archhos  data  from  too  Marine  and  assi^wfwnt  tables,  having  report 

1040  dates  tees  toan  toe  cirrent  date 


70 


1041  31  AichheData 

1042  32  Afpfcatlon.Se(Oplan  *Connrtn  Action  Queried',  True 

1043  33  DoCmd.SeAVarnngs  (True) 

1044  34 

1045  35  EndSi* 

104£  X 

1047  37 

1043  X  Private  Sub  Cormiandl2-Clck() 

1049  39 

1050  40  Dim  slOocNafne  As  Sting 

1051  41  Dim  sOikCritefla  As  Siring 

1052  42 

1053  43  ApplcaBorLSe(C|»lon*Conflrm  Acton  Queries'.  False 

1054  44  DoCtTd.SenVarnings  (False) 

1055  45  'Imports  the  RD1  file 

1056  46  ImporfiDI 

1057  47  App»caaon,Se4Cplon  'Confirm  Acton  Queries'.  True 

10SB  46  DoCmJ.SetWamin9$  (True) 

1059  49 

1060  SO  '  Close  Bw  current  lorm 

1061  51  DoCmd-Ctoso 

1062  52  '  Open  specified  form 

1063  S3  stDocNames  limChangeGradOate' 

1064  54  DoCmd.OpenForm  stOocName, , .  sHJnkCrlterla 

1065  55 

1066  56  EndSub 

1067  57 

1066  58  Private  Sub  ConTiiand4,Clcl(<)  , 

1069  59 

1070  60  ■  Imports  BKAlxl  file 

1071  61  AppIcatton-SelOpton 'Confirm  Acton  ajerles".  False 

1072  62  0oCmd.SelWarnm9s  (False) 

1073  63  DoCmd.RtfiSQL  *OarTE  *  FROM  BNA^EXTRACT;' 

1074  64  ImportBHA 

1075  65  Appicaton  SelOplon  ‘Confirm  Acton  Queries'.  True 

1076  66  DoCrrsl.SofWamings  (True) 

1077  67 

1078  68  End  Site 

1079  69 

1080  70  Private  Sub  Connande^ClclO 

1081  71 

1082  72  On  Error  GoTo  Err_Command8_Ck:k 

1063  73 

1064  74  OimsIOocNameAsSring 

1065  75  Dim  sfUnkCrIieria  As  Sting 

1066  76 

1067  77  ’  Close  tie  current  lorm 

1068  78  OoCmd.Ctase 

1089  79  'Open  specified  lorm 

1090  80  sIDocNama  ^  'trmROM-Main.Switchboard' 

1091  81  DoCmd.OpenForm  stDocMame. , ,  sHJnkCriteria 

1092  82 

1093  83  e3dt_CommBndB_Cicit 

1094  84  EittSite 

1065  85 

1096  86  ErT_Command8_Clcte 

1097  87  MsgBcK  Err.Oescripton 

1096  88  Resume  EidLCommandS^Ctck  • 

1099  89 

1100  90  End  Site 

1101 

HOB  Form:  IrmLogicaPropert/ 

1103  Code 

1104  1  Attibute  VB.Namo  =  'FonruIrmLogicafProperV 

1105  2  ABribote  VB.Crealabie  =  True 

1106  3  ABrlbuto  VB^Predeclaredld  =  True 

1107  4  AtWbuteVB.&posed*  False 

1108  5  Opton  Compare  Database 

1109  6  Opton  BpCdt 

1110  7 

1111  8  Private  Sub  tteOose.CIckO 

1112  9  On  Error  GoTo  Err_bteCtosa_Cick 

1113  to 

1114  11 

1115  12  OoCmdOose 

1116  13  OoCmd.OpeoFormfmAteintenanceSvUthboard' 

1117  14 

1118  15  E3tlLbteCtose_CfcJc 

1119  16  BttSub 

1120  17 

1121  18  ErT_bteCtoae_Cick: 

1122  19  ttegBcacErr.Descripton 

1123  20  Resim  Edt_binaose_Clck 

1124  21 

1125  22  EndSub 

1126  23 

1127  24  Private  Sub  cmbFitedProp^OkkO 

1128  25 

1129  26  '  Adds  tee  selecbd  fundamental  propert/  to  tee  logical  equaton 

1130  27  Me.LjcigicalEquaSon.Value  =  Ma.togIcaEoualon. Value  & 

1131  Me.cmbFiindProp. Value  & '  ’ 

1132  28 

1133  29  EndSub 

1134  X  Private  Sub  cmbljogOper_Clct<() 

1135  31 

11X  32  Adds  tee  seloctedlo^cal  operator  to  tee  logical  equaton 

1137  X  Me.UiglcaCqualon.ValuB  =  Me.LogicalEquaton. Value  & 

11X  MB.cmb(jogOper.Value&" 

1139  34 

1140  35  EndSite 

1141  X 

1142  37  Private  Sub  cnteLProperVNan»Rnd_AnerUpdate() 

1143  X 

1144  39  DlmRAsnecsnlaBt 

1145  40  SetR  =  Me.RBCordselCbne 

1146  41  Rnn(Firsf'tLPropertyfteme.PK]  =  *4Chr(34)4 

1 147  MetlcmbLProperVltemeFind]  &  Cbr(34) 

1148  42  Me.Bookmark  3  RBookmark 

1149  43  Me![citteU>roperlyNarTieFindl  =  NiJ 

1 150  44  Ma.LProperl/Name.PKSetteus 

1151  45 

1152  46  EndSub 

1153  47 

1154  48  Private  Sub  CommandlO.ClckO 

1155  49 

1156  50 

1157  St 

lisa  52 

1159  53 

1160  54 

1161  55 

1162  56 

1163  57 

1164  58 

1165  59 

1166  60 

1167  61 

1168  62 

1169  63 

1170  64 


‘  Removes  tee  bstenty  In  the  logicai  equaton 

Dim  stlnName.  stUido  As  Sting  '  Input  name 

Dim  imSpacePos  As  Integer  '  positon  of  tee  space 

Dim  i  As  Integer  ‘  loop  indeK 

DimbooResuR  As  Boolean 

Dim  IngConversion  As  Long 

Dim  larConv  As  Variant 


‘  get  tee  logical  ttftecsian 
strInName  s  Me.LogicaiEquaBon.Vatee 

•Check  for 'NdT  value 
If  stlrMarTB-o'fter'Ihsn 


1171 

1172 

1173 

1174 

1175 

1176 


1179 

1160 

list 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 
1196 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 
1207 


1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 
1227 
1226 
1229 
12» 

1231 

1232 


1236 


1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 


1250 

1251 


1254 

1255 

1256 

1257 


1261 

1262 


65 

66  'declare  tee  temporary  st-lng  as  an  array 

67  ReOim  stTemp(0)  As  Sting 
66 

69  'Find  tee  positon  of  tee  first  space 

70  inISpacePos  =  lnSt(strtnNamB.  *  *) 

71 

72  '  Loop  unfit  no  more  spaces  are  found.  InSt  reterns  0  if  tee 
space  is  not  found. 

73  DoUhllln6pacePo3  =  0 

74  '  redimensian  tee  array,  adding  another  eiement 

75  •  UGouid  teas  us  how  rrwry  elements  there  ateady  are  in  tee 

76  Ream  Preserve  strTemp(UBound(stTemp>  +  1) 

77 

78  'set  tea  newelemenf  to  tee  characters  from  tee  beginning  Of 

79  '  sting  ip  to  tee  first  space.  Letts  retians  a  nanber  of 
Characters 

80  'Iromtee  beginning  Of  a  String 

81  stTemp(UBattod(slrTemp))  =  Tnf:^LeftS($tlnName.  intSpacePos 

82 

83  '  nowwe'vB  copied  teese  characters  Into  tee  name,  tesy  can 

84  '  removed  from  tee  orlginai  string.  RIghS  retoms  a  number 

85  'characters  from  tee  end  of  tee  sting.  Itisteerightnost 

86  'characters,  teerefore  we  subtact  tee  posifion  of  tee  space 

87  '  the  lengte  of  tee  string.  This  gives  us  tee  mtrber  of 
characters  remaining. 

88  stenName  =  LTrlm5(nghG{strlnName.  Len(5tlnName}  • 

89 

90  ‘find  tee  neK  space 

91  intSpacePos  s  lnSlr(s)rlnName.  "}  *0  inSpacePos  = 
lnSt(slrlnNamo.  'O  Or  IntSpacePos  =  lnStr(strlnNain6, ')') 

92 

93  Loop 

94 

95  '  Remove  tee  last  elemeni  of  tee  anay,  unless  teere  is  only  one 
element  left 

96  II  UBound(stTenp)  >  1  Then 

97  ReOim  Preserve  stTemp(UBound(stTenp)  - 1) 

96 

99  ‘  Loop  terou^  tee  ebments  of  tee  array  and  placa  teem  back 
Into  tee  logics  equaton  eopressJon 

100  For  I  =  1  To  (LBot«d(strTamp)) 

101  stUhdecst-Undo&sfirTemp<l)&" 

102  Me.Logica£quaton.Vaiie  c  stundo 

103  Nexll 

104  Else 

105  'Set  tee  logical  equaton  equal  to 'hUr 

106  Ma.LDgicdEquafion.Value-*(* 

107  End  If 

108 

109  ‘Set  logical  equaton  eipresslonegual  to  new  value 

110  Endlf 

in 

1I2EndStJb 

113 

1 14  Private  Site  Commandl  1_CSck() 

115 

116  •  Forces  user  to  enter  data  tor  properly  name  and  descriplon 

1 17  If  lsNiA(Me.LPropertyN»ne_PK.V^)  Or  tsNul(Ms.Desalpton.Value) 

118  MalCommand8.EnaUed  s  False 

119  MelCorrmandS  En^iied  s  False 

120  MelCorrmandlO.Enabled  =  False 

121  MelcmbFuncProp.Enabted  =  False 

122  MelcmbLogOper.Enabtod  s  False 

123  MellogIcaEquafion.  Enabled  =  False 

124  MsgBoK  “You  must  provide  a  ‘Properly  Name'  and  'Descriplon' 
before  building  tee  togical  equation.' 

125 

126  'Enters  a '('be  tee  first  entry  In  tee  logical  equaton  if  it  Is 

127  Bself  lsNul[MslLogicalEquallon.Vatoe)  Then 

128  MalCommand8.Enabtod  »  True 

129  MelComnnnd9.Enabted=  True 

tX  MelComtnandlO.Enabted  s  True 

131  MelcrTibFtindProp.Enahl0d  s  True 

132  MelcmbLogOper.Enabtod  =  True 

IX  MBlLoglcaEquatlon.Enabled  =  True 

134  MelU3gicaEquatk)n.Vatee>i*(* 

135 

IX  'Alows  tee  user  to  enter  values  Into  tee  logical  equation 
137  Ebe 

IX  MefComnandBLEnabtod  ■  True 

IX  MBlCommand9.Enabted  =  True 

140  MefCommondlO.Enabtod  ^  True 

141  lvtolcmbFun(fpTop.Enablsd  =  Tnje 

142  MelcmbLogOpsr.Enabted  s  True 

143  MelLogicaEquaton.Enabtod  -  True 

144  End  II 

145 

146  End  sub 

147 

148  Private  Site  CommandB.ackO 

149 


1263  ISO  '  Adds  tee  toft  bracket  to  tee  logical  equaton 

1264  151  Me.LogicalEquaton.ValuB  =  Me.LogicalEquaflon. Value  & '( ' 

1265  152 

1266  IXEndSito 

1267  154  Private  Sub  CorrtnsrtS^CIckO 

1268  155 

1269  156  ‘Adds  tee  right  bracket  to  tea  logical  equaton 

1270  157  Me.LoglcalEquaton.ValUB  =  Me.LogicaCqualionVaue  &  -} ' 

1271  IX 

1272  IXEnd  Site 

1273  leOPrivateSubbtnOetete.CidiO 

1274  161  On  Error  GoTo  Err_blnOetola..Clck 

1275  162 

1276  IX 

1277  164  DoOnrd.OoManultomacFormBar.  acBfifMmu.  B. ,  acMeouVerTO 

1278  165  DoCmd.DoMenultomacFannBar.  acEditMenu.  6.  .acMenuVerTD 

1279  IX 

1280  167E)dLhteDatete_Ciclc 

1281  IX  EidtSub 


1263 

1264 


1287 

12X 


1291 

1003 

1293 

1294 
1296 

1296 

1297 
1296 


1300 


170Err_blnOelete_Cick; 

171  MsgBox  Err.Oescrlptan 

172  RasuRte  EitLbteDetote.Cick 

173 

174  End  Site 

175  Private  Site  Descriplon  JUterUpdate() 

176 

177  ‘  Forces  user  to  enter  data  tor  property  name  and  dascripton 

178  It  lsNiA(Ma.LPropertyNama_PK.VaUe)  Or  l5Nul(Me.Descrlptioa Value) 

179  MelConvTtendaEnabtod=  Ftese 

IX  MalConTnBnd9.Enabted  =  False 

181  MelCommandlO.Enabted  ic  False 

182  MBlcmbFundProp.Enabted  a  False 

IX  ktolcmbLagOper.Enabted  =  Fabe 

184  MalU)gicaCqiaSon.En^ted  =  False 

IX 

IX  '  Enters  a  *(*  be  tee  first  entry  in  tee  bgcal  equaton  Kit  is 
187  Ebelf  lsftol(MBfLo9ic^Equtefon.Vatoe)  Then 


71 


1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 


188  M»!Command8.Eiu^-TnM 

189  MalComnaneS.EnablMlaTRW 

190  Ma)ComnmdiO.En*blad  -  Trutt 

191  M4!cnnbf=un<Prop.EnabW  -  Tmo 

192  M4!cmbLoflCip*f.&abto(J  -  Tm® 

193  M®!Logic«IEquafioo.Enebtod  -  Tiu® 

194  M®!LcigicalEqua#on.Valu®  « *( ' 

195 

196  '  Alows  8w  U3«r  to  otitor  loluos  into  8m  logico]  oquoiicn 

197  Eba 

198  MelCorrmmde.Enablad  -  Trua 

199  M®IConvr«nci9.EnabUd  -  TnM 

200  MalConvnandl  O.Enabtod  -  Trua 

201  kMcnnbRjncProp.Enablad  >  Trua 

202  MelcmbLogOpar.ErMblad  -  Trua 

203  Ma)LogicalE«TU8tion.Er»blad- Trua 

204  End  If 

205 

206  End  Sub 

207 

206  Privala  Sub  Form_Bafof aUpctali(Caftcal  As  tntogar) 

209 

210  [LogPropTimaStomp]  ■  Now 

211 

212  End  Sub 

213 

214  PtivBto  Sub  Form_CuffenI() 

215 

216  ■  Forcas  usar<to  anlar  data  for  proparty  name  and  dascriplion 

217  If  lsl^l(Ma.LPfopartyNaim_PKValua)  Or  l3Nul(Ma.Dascripljon.Valua) 

218  MalConrmtrtoS.Enabtod  >  Fi4sa 

219  MalConvnand9.En^>(ad  -  Fa^ 

220  Ma!Cocnmandl0.Enabi8d  -  Fafaa 

221  MelctnbFundProp.Enabiad  *  Fa4sa 

222  MalcmbLogOpar.Enablad.Faba 

223  Mall^calEqualiorvErMblad  -  Faba 

224 

225  'Entorta*(*ba(h8firstantryinthaiogicalaqua6onifitis 

226  Eball  laNul(Ma!LogicaJE(iuation.Vi4ua)  than 

227  Ma!  LogicalEquation.  Value  -  *(  * 

228 

229  'Alowa  8m  uaar  to  anlar  vnkjaa  into  ttto  logical  aquation 
2X  Eba 

231  MalCommandS.Enabiad  •  Trua 

232  MalComnnndg.Enablad  -  Trua 

233  MatCo(7¥rBndtO.EnaUad  -  Trua 

234  MelcntrFurxProp.  Enabled  -  Trua 

235  MalcmbLo^^par.Enabled  -  Trua 

236  MelLogicadEquatiorL  Enabbd  >  Trua 

237  End  If 

238 

239  End  Sub 

240PrivBto  Sub  UgicalEqutaion_Enlar() 

241 

242  'PrawMb8Muaarfron)modfing8MlogicaIaquBliondrac8y 

243  MageoxHha  logical  aquaionisonl/modriablabv  8m  above  lodcd 

aquation  builder' 

244  OoCmd-GoToControl  ‘LPropartyNanM^PIC 

246  End  Sub 

247 

248  Privala  Sub  LProparVNama.PKjUltrUpdatoO 

249 

250  ■  Forces  u»ar  to  anlar  data  (or  proparty  name  arKldeacripSon 

251  If  lsfAjl(Ma.LPrcpertyNarrM_PK.Valoa)  Or  lsNui(Me.C}aacriplion.Valual 

252  MatCommande.Enablad  -  Faba 

253  MatCoinmand9.En(tolad  .  FNsa 

254  MalComrTMndlO.ErMbiad  .  Faba 

255  Ma!embFundProp.Enabled  ■>  Faba 

256  MafcrrbLost^par.Ervablad  >  Faba 

257  MatLotpcaEquaHon.  ErvUed  -  Faba 

258 

259  ’  Enters  a '(*  be  lha  first  anpy  In  Sm  logical  aquabon  if  it  is 

260  Ebalf  lsNul(Ma!Lo9ca]EqualioaVakia)  1»Mn 

261  MafCommandS  Enablad  *  Trua 

262  MatConvnand9.Enablad  ••  True 

263  MafConvnandlO.Enabiad  .  Trua 

264  Ma!cfrt>RjndProp.Enablad»Trvte 

265  MalcinbLogOpar.En^tad  «  Trua 

266  Ma!ljogicaEquation.EnaUad-Trua 

267  MafLogicalEquaboaValua  -  *(  * 

268 

269  '  Alowi  8w  user  to  enter  VBkws  into  8m  logical  aquation 

270  Eba 

271  MalConvmndS.Enablad  >  True 

272  MefComnwKfi.Enabbd  ■  Titw 

273  Ma'ConYnandlO.Enablad  -  Trua 

274  MalcrrbFundProp.  Enabbd  »  Trua 

27$  Ma!cn*LogCpar.Enablad-True 

276  Ma!LogicalEquabon.Enablad  -  Trua 

277  End  If 

278 

279  End  Sub 

Fomv  fnTMamtenancaSwttoftooard 
Coda 

1  Attribute  VB^Nama  ■  'Forrrt.fmnMaintenancaSwtohboard' 

2  Attribute  VB.Craatefala  .  Trua 

3  ABribute  VB.PradaclaradId  ■  Trua 

4  ABribute  VB_E>poaad  -  Faba 

5  C^ibon  Compaia  Database 

6  Option 

7 

8  Private  Sib  btoExit_Clcl(() 

9  On  Error  GoTo  Err_btoE»LCIck 

10 
11 

12  OoCmdCtoaa 

13 

14  Eat_btaE)dt.Ciclc 

15  Ext Sub 

16 

17  ErT„btaEMt.Clclc 

18  MsgSox  Err.Oaaciipbon 

19  Raauma  ExiUbtoExLCSclc 

20 
21 

22  EndSub 

23 

24  Private  Sub  Convr»ndO^Cick() 

25  Cn  Error  GoTo  EtT_Cort»nwdO  Cfck 

26 

27  Dim  alDocfbma  As  String 

28  Dim  atUnicCriteria  As  String 

29 

30  '  Ooaa  8w  currant  form 

31  DoCmdOoea 

32  ‘  Oban  aoaeifiad  form 

33  stDocNante-TrrriScboonbPEFJiteirtf* 

34  OoCmd^tenFotm  atOocNama, . ,  stLinkCriteria 


1431  35 

1432  36  ExLComnwKC  Ciclc 

1433  37  Ext  Sub 

1434  38 

1435  39  ErT_Corm>andO_acIc 

1436  40  MagBoxErr.Daacripbon 

1437  41  FtesuiTM  ExLCommeuxto.CIck 

1438  42 

1439  43  EndSub 

1440  44 

1441  45  Private  Sub  CofTimand12_C5c<} 

1442  46  Cto  Error  GoTo  ErT_Cort»nard12L.CSck 

1443  47 

1444  48  Dim  StDocNoma  As  String 

1445  49  Dim  StLinkCriteria  As  String 

1446  50 

1447  51  '  Ctosa  8m  currant  form 

1448  52  OoCmdCbsa 

1449  53  •  Open  specified  form 

1450  54  stDocNanM-'frmSchooh* 

1451  55  DoCmdOpanFormsIDocNamB, .  ,  slinkCriteria 

1452  56 

1453  57  ExLCommond12_Click: 

1454  58  ExtSub 

1455  59 

1456  60  Err_Command12_Clck; 

1457  61  MsgBoxErr.Dascripbon 

f4S8  62  RasurTM  ExLCommBndl2_CSck 

1459  63 

1460  64  EndSub 

1461  6$ 

1462  66  Private  Sub  Command14_CScl<) 

1463  67  Or  Error  GoTo  Err.CommandW  CSck 

1464  68 

1465  69  Dim  atDocNama  As  String 

1466  70  Dim  stLinkCriteria  Aa  String 

1467  71 

1468  72  ‘  Ciosa  8m  currant  form 

1469  73  DoCmdOosa 

1470  74  '  Cpan  specified  form 

1471  75  stDocNanM .  ‘frrrPEP 

1472  76  DoCnxLQMnForm  stOocNartM, , ,  sSJnkCritaria 

1473  77 

1474  78  ExLCornmarxlU  CIck: 

1475  79  Ext  Sob 

1476  SO 

1477  81  Err.Co(rnMnd14_Ciclc 

1478  82  MsgBoxErr.D^fipbon 

1479  83  flesuma  Ejdt_Command14  CSck 

1480  84 

1481  85  EndSub 

1482  86 

1483  87  Private  Sub  Conf«»nd2_Clck() 

1484  88  Oi  Error  GoTo  Err  Comrnarxe  Cfck 

1485  89 

1486  90  Dim  atOocNama  As  Stong 

1487  91  Dim  StLinkCriteria  As  Stitag 

1488  92 

1489  S3  '  Ctosa  8m  currant  form 

1490  94  DoCnxlCtose 

1491  95  '  Open  tpadfiad  form 

1492  96  atOocName  ••  •frmFundamentolPropany* 

1493  97  DoCmd.OpenForm  stOocNanM. . .  stUnkCritoria 

1494  98 

1495  99  ExL.ComrrMnd2_Cick: 

1496  100  ExtSub 

1497  101 

1498  102ErT_Con*nand2_Cticlc 

1499  103  MigBoxErr.Dejcripbon 

1500  104  Rasuma  ExLComtiMnd2_C[ck 

1501  105 

1502  106  End  Sub 

1503  107 

1504  108  Private  Sub  Con«T«nd4_Cick() 

1505  l09Oi  Enor  GoTo  Err_CotmMnd4_ack 

1506  no 

tS07  111  Dim  etOocNarTM  As  String 

1506  112  Dim  StUnkCritoria  As  String 

1509  113 

1510  114  'CkM®  8m  currant  form 

1511  115  DoCrtKlCiosa 

1512  116  ‘Cpan  spadfiad form 

1513  117  stDocNama- TimLogicalPropony" 

1514  11$  DoCrrxlC^MnForm  stOocNama, , ,  stLinkCriteria 

1515  119 

1516  120ExLComnia»>d4  Ocfc 

1517  121  ExtSub 

1518  122 

1519  123Err_Con«TMnd4_CScic 

1520  124  MsgBox  Err.Daacripboo 

1521  125  Rasuma  ExLComn»nd4  CSek 

1522  126 

1523  127  End  Sub 

1524  128 

1525  129PrivBte  Sub  CanmMnd6_CSck() 

1526  13001  Error  GoTo  Err.Comroande  CSck 

1527  131 

1528  132  Dim  stDocNtena  As  String 

1529  133  Dim  SlinkCriteria  As  String 

1530  134 

1531  135  ‘  Ctosa  9m  currant  form 

1532  136  OoCmdCtoia 

1533  137  '  Open  spadfiad  form 

1534  138  stl>ocNarrM--fttnSchoofroPropanyMainr 

1535  139  DoCnxLqMnFom  stDocNartM. ,  ,  slinkCriteria 

1536  140 

1537  14iExLComnMnd6  adc 

1538  142  ExtSub 

1539  143 

1540  144Err_CoiTnMnd6.CSek: 

f 541  145  MsgBox  Err.Daicripbon 

1542  146  Rasuma  ExiLCommarxK  CIck 

1543  147 

1544  l48EndSub 

1545  149 

1546  150  Private  Sub  Comme««_CSck() 

1547  1S1  On  Error  GoTo  Err.CommandB.CSck 

1548  152 

1549  153  Dim  stDocNema  As  String 

1550  154  Dim  slinkCritoriaAs  Strirw 

1551  155 

1552  156  'Ctosa  8m  currant  form 

1563  157  OoCmdCbsa 

1554  158  ‘Open  spadfiad  form 

1555  159  dOocNarTM*  ’frmRDMJWn.Swtohboaid' 

1556  160  DoCmdCpanForm  stOocNama. , .  slinkCriteria 

1567  181 

1558  162ExLCormMndB_Cldc 

1559  163  Ext  Sib 

1560  164 


1561  l65ErT_CortTBncB_Clcfc 

1562  166  MsgBox  Err.DescrtpKon 

1563  167  Rosuto  BdLCorm«nd8„Clck 

1564  168 

1565  leSBxJSub 

1566 

1567  Fdrnt  Jrrrf>EF 

1568  Code 

1569  1  A»ibut0VB_Nan»s!*Fofm_trmP£F' 

1570  2  Atribute  VB.Creaabte  =  True 

1571  3  AlUtaJlB  VB^Prededarodld  =  True 

1572  4  A»ibute  VB_Expo*ed  *  Fabe 

1573  5  OpSon  Convere  Dalabase 

1574  6  Opdon  Expidl 

1575  7 

1576  e  Private  Sii)CfT*4>ofFifxtjAft0rtJpd^ 

1577  9 

1578  10  OimRAsRecordsel 

1579  11  SetR  =  Ma.n8cordMtCk)ne 

1580  12  RRndFlrst^PEF_PKl*'&Chr(34)&Me!^CII*)Po^Rnd]4C^r{34) 

1581  13  Me.BookrrarksRBookmark 

1582  14  MeI[cnt)Pe{Rnd]  = 

1583  15  Me.PEF_PlCSetFocus 

1584  16 

1585  17  EfxlSub 

1586  18 

1587  19  Private  S»l)FornuBetoreUpdato(Cancet  As  Integer) 

1588  20 

1589  21  (PEF.TImeSteinpI  =  New 

1590  22 

1591  23  EndSub 

1592  24 

1593  25  Private  ScteForTn_Curret«() 

1594  26 

1595  27  Dim  skSOL  As  Siring 

1596  28 

1597  29  •  Update  tee  PEF  Ust 

1598  30  skSa= -SELECT  DiSTINCTTCWIMAWNEl.fPeFlFnOMMftRlNE  LEFT  JOIN  PEF 

1599  ON  IMARNE).1PEF]  =  IPEF1.[PEF_PKIWHERE  (IPEFI  IPEF.PKJ  Is  ^U)ORDER  BY 

1600  31  kte.PEF_PK.RMSovcQ  ^  stSOL 

1601  32 

1602  33  EndSub 

1603  34 

1604  35  Private  SubPEF_PK^IterUDdate() 

1605  36 

1606  37  Dim  sfrSQL  As  Sting 

1608  39  ’Update  tea  PEF  Ust 

1609  40  srSQL= -SELECT  DIS71NCTFCW(MA«NEl.lPEnFFCM  MARNE  lEFTdOIN  PEF 

1610  ON  [MARNEl.rPEFJ  =  (PEF1.[PEF_PKIWHERE  (IPER  IPEF.PKJ  Is  1*A)ORDEfl  BY 

1611  41  MB.PEF_PKHowSoisca  =  stSQL 

1612  42 

1613  43  End  Sub 

1614  44  Private  Sill  bteDetete^Clck() 

1615  45  On  Error  GoTo  Efr^bteDetete_aclc 

1616  46 

1617  47 

1618  48  DoCmdDoMafaittem  acFormear.  ecEdUManu.  8, .  acMendVerTO 

1619  49  OoCmLOoMenultem  acFormBar,  acEdllMam.  6, .  acMenuVerTO 

1620  50 

1621  51  E}4U>teOelete_CIOc 

1622  52  EidtSub 

1623  S3 

1624  54  ErrJjteOetete.CIck 

1625  55  MsgBoxErr.Description 

1626  56  Flesume  BdLbteDetete.Ock 

1627  57 

1628  58  EndSub 

1629  59  Private  SUttbteaosa_Cicic() 

1630  60  On  Error  GoTo  Err_bteCtose_Clck 

1631  61 

1632  62 

1633  63  DoCmtOose 

1634  64  DoCmdOpenForm  -frnnMaintenancaSMlchboarcr 

1635  65 

1636  66  E)dL.bteCtoso_Clck: 

1637  67  BdtSub 

1638  68 

1639  69  EfT^bteCtose.Ciac 

1640  70  MsgBoxErr.OascripUon 

1641  71  Resunte  EriLbteCtese.CSck 

1642  72 

1643  73  EndSub 

1644 

1645  Fornt  frtnPrapareAnd&eculaSoAer 

1646  Coda 

1647  1  Ateibuto  VBJtona -FofTn_1niiPreparaAndExBcuteSot«r- 

1648  2  AttebuteV8_CraateMa  =  True 

1649  3  Allrlbute  VB.Prededaredld  =  True 

1650  4  Attebute  VB.Exposad  ^  Faba 

1651  5  Option  Compare  Database 

1652  6  OpeonEipIdl 

1653  7 

1654  8  Private  Sti)bteAMPU.Cic>c() 

1655  9  On  Error  GoTo  Err^bteAMPl^CIcX 

1656  10 

1657  11  AmpOata 

1658  12 

1659  13  Dim  slAppNante  As  String 

1660  14 

1661  15  ’stAppNsfne  =  -C:\ToBondrii(iAfrpMln\afTpWn.o*- 

1662  16  stAppName  =  *C:\ToBendrT«AmpMrAanp.bar 

1663  17  CalSheKsWppNamo.O) 

1664  18 

1665  19  ‘MsgBox  -Enter  Inte  S»  command  Ine:  tneUde  rdHirun" 

1667  21  BdLbteAMPL_Clcfc 

1668  22  ExItSub 

1669  23 

1670  24  EfT_bhA»«_CIcfc 

1671  25  MsgBox  Err.  Description 

1672  26  Resume  ExLbteAM>L_Clck 

1673  27 

1674  28  End  Site 

1675  29 

1676  30  Private  Site  bteAmpPlus_Clck() 

1677  31  On  Error  GoTo  Err  JbtnAftpPlus_C»ck 

1678  32 

1679  33  AmpiData 

1680  34 

1681  35  amstAppNameAsSting 

1682  36 

1683  37  stAppNane  =  -C;\AMSLPLUSd\NPLPLUB.EXE  rdmamp- 

1684  38  Cal  Sbel(stAppName.  1) 

1685  39 

1686  40  E)4U>teAnpmus_acic 

1687  41  Exit  Site 

1688  42 

1689  43  EiT_bteAnpPtes_Clck; 

1690  44  MsgBoxEn.DescripOon 


1691 


1695 


1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 
ire9 

1760 

1761 

1762 
1783 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 


45  Restsne  EidLWnAmpIPlus.Cick 

46 

47  EndSite 

48 

49 

50  PrhateSubbteReltxnPrevious.CSckO 

51  Cn  Error  (i)To  Err JjtiHetumProvious.aick 

52 

53 

54  Dim  stDocNairte  As  Sting 

55  Dim  stUi^terla  As  Sting 

56 

57  '  Oose  the  current  form 

58  DoCmd.Ckise 

59  '  Open  ^tecITied  form 

60  stDoettemo  =  *tfmPrepfocessin9&£xocullooSwitchboanr 

61  DoCmd.OpenForm  stOocName. . .  slUnkCrlteria 

62 

63  B4LblnRsterriPrsvioiis_Ciclc 

64  EidlSite 

65 

66  Err.btnRetijrnProvious.CIck: 

67  MsgBoK  Err.Descriplon 

68  Resume  EidLbtnRetumPrevteus.CSck 

69 

70 

71  EndSite 

72 

73  Private  Site  Camniand4_Cid((} 

74  AppIcalioaSetOplon  -Conlirm  Action  Ojeries',  False 

75  DoCmd.SeNVarnIngs  (Fabe) 

76  DoCmd.  ftjnSQL  ‘DELETE  *  FROM  AMPt^RESULT;* 

77  AmpLResiJl 

78  Apptcaiion.SelCpIon  'Conlirm  Action  Queries*.  True 

79  DoCiTxl.SetWamings  (True) 

80 

81  EndSub 

82 

83  Private  Sub  Command7.Cick() 

84  On  Erra  GoTo  Err_Command7_Clck 

85 

86  Dim  stDocName  As  Sting 

87  Dim  slinkCriterla  As  Sting 

88 

89  ‘  Ciosa  tee  current  form 

90  OoCmd.C>ose 

91  '  Open  specilied  form 

92  StDocName  =  ‘irmAnalyzonosur 

93  DoCrtxl.OpenFdnnslDocName. . .  stUnkCrIterla 

94 

95  E)dLCommand7_Cldo 

96  EidlSub 

97 

98  Err_Commmd7_acfc 

99  MsgBcDcErr.Descrlpllon 

100  flesime  Ej<lLConTnand7_CSck 

101 

102  End  Site 

Form:  frrrPreprocesdng&BBculloriSwitchboard 
Code 

1  Attibuta  VB^Name  =  'FomufnnPreprocessing&EtecutionSWfchboanf 

2  Attibute  VB.Createble  s  True 

3  Attibute  VB.Prodecbredld  *  True 

4  Attibute  VB_E)posed  =  False 

5  epton  Compare  Database 

6  Qplon&picil 

7 

a  Private  Site  HnEriLCIdO 

9  On  Error  Goto  Err.Wn&dLack 

10 
11 

12  DoCtTXl.Cte9e 

13 

14  EsdLWnEjdLCIcIc 

15  Bit  Site 

16 

17  ErrJJteErdLCIcte 

18  MsgSoK  Err.Descrlptten 

19  Resume  ExiLbteExiLCSck 

20 
21 

22  EndSub 

23 

24  Private  Sub  bMtectessiflcaficr>_CSck() 

25  On  Error  GoTo  Err_bbiRec]asstficallan_Clck 

26 

27  Dm  sCocName  As  Sting 

28  Dm  stUrACriterla  As  Sting 

29 

30  '  Dose  tee  current  form 

31  DoCrrxICtose 

32  '  Open  specified  form 

33  StDocName  ^  limRedasstncatfan' 

34  DoCmd.OpenForm  stDocName, , .  sttinkCriteria 

35 

36  ExiLbteReciassitlcaaon_Clck: 

37  BdtSite 


1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 


1802 

1803 

1804 
1605 
1806 

1807 

1808 

1809 

1810 
1611 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 


39  Err_bteRocias5iticalon_CSck: 

40  MsgBcH  Err.Oescripifon 

41  Resime  BdLbteRectessiricalioruClck 

42 

43 

44  EndSite 

45 

46  Private  Sub  MnScriteMarineData-CIckO 

47  On  Error  GoTo  Err.^bt»SeriteMarir»Data_Clck 

48 

49  Dm  StDocName  As  Sting 

50  Dm  stLinkCriteria  As  String 

51 

52  ‘  Dose  tee  current  form 

53  DoCtTxlCbse 

54  '  Open  specified  term 

55  stDocNaite  =  -frmSaubNbrino- 

56  DoCmd.OpenForm  stDocName, . ,  slUnkDiteria 

57 

58  BdL«nScnteMarineOabuClcfc 

59  EidtSub 

60 

61  EfTjjteScrubAterinoOate_Clck: 

62  htegBoxErr.DescrIpaon 

63  Resume  ExiLWnScrubMartneDate_C*ck 

64 

65  EndSite 

66 

67  Private  Sub  UnSpectelAssignmenLCickO 
66  On  Error  GoTo  Err_btnSpecialAssignmenLCfck 
69 
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1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 
1846 
1649 

1850 

1851 

1852 

1853 
1654 


70  Dim  sOocNamo  As  SVing 

71  OimstfJnkCntorisAsSbing 

72 

73  '  Cloao  f»  cirrenl  form 

74  DoCmdClose 

75  '  Cpon  spocifiad  form 

76  stDocNsne  •  'ImSpeciaiAsai^wnanr 

77  OoCnd.OpenFonn  stDocNsns. , .  siUnkCrileria 

78 

79  ExLl*6pacislA$3ignmenLCSclc 

80  Eiit&A) 

81 

82  Err„btrvSpaci>IAsaignniBnt,aclc 

83  MsgBox  ErT.DMChpton 

84  Resune  ExLbriSf^islAssi^rmnLCIck 

85 

86 

87 

88  BvISub 

89 

90  PrivalB  Sub  ConiT)and2_C>c1<) 

91  On  Error  GoTo  Err_Comm*ntl2_Cfck 

92 

83  Dim  sOocName  As  Sking 

94  Dim  sSJnkCiitoria  As  Stri^ 

95 

96  ‘  Gloss  tw  cvrent  form 

97  DoCrrxtCtoss 

96  '  Qpsn  spscifisd  form 

99  stDocNim  •  "(rmclMsOuotBPorvBtyAndrir 
ICO  OoCiTtl.Oper^orm  sfDocNvns,  , ,  sflJnkCriteriB 
101 

102  Ext_Cc3mnisnd2_Ctck: 

103  Ext  Sub 


1856 

1857 


1860 


1863 

1864 

1865 

1866 
1867 


1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1881 


1883 

1884 

1885 

1886 
1887 


1891 

1892 


1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 


1924 

1925 

1926 

1927 


1931 

1332 

1933 

1934 

1935 


1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 


105  &f_C«mw»xJ2_CSclc 

106  MsgBox  Err.Osscfiption 

107  Rosums  E]at_CdnTWKt2.CIck 
106 

109  End  Sub 

1 10  Private  Sub  ComiwniM  CSck(} 

111 

1 12  AppCoakoaSsCpIjon  ‘Confirm  Aclon  Ojoriee*.  Faiss 

113  OoCmdSsWamings  (Fates) 

114  OcOnJ.FU>Sa  •DELETE ‘FRCMAMPL^RESULT;- 

115  AmpL^MUr 

1 16  Ap^skonSsfCpticn  'Confirm  Aclon  Ojerms*.  Trus 

117  DoCmd.SeWamingsdrus) 

118 
119 

120EndSii> 

121 

122  Prn«te  Sub  Conrrwxje.CIcfcO 
1230n  Error  GoTo  Err.ConnandG  Cick 

124 

125  Dim  sOocNams  As  Sling 

126  Dim  sfUritCriteria  As  Sling 

127 

128  '  CkMS  tw  currant  farm 

129  DoCmlCtoss 

130  ‘  Open  spscilisd  form 

131  stDocNBLms  m  'hmPrspvaAtfaExKUteSolver* 

132  DoCmd.OpsrrFormstDocJMBrrB, , ,  stUnkCriteria 

133 

134  E»t_Catmw«16_Ctclc 

135  Ext  Sub 

136 

137  Eff.Corrwxje.CSck: 

138  MsgBox  Err.  Dsscriplon 

139  Rsaurns  ExLCommandS  CIck 

140 

141  End  Sub 

142 

143  Private  Sub  CotTtnandO_CSck() 

144  Crr  Error  GoTo  Err.ConvrxnS.Ctick 

145 

146  Dim  stDocNams  As  Sting 

147  Dim  sftinkCntoris  As  Sting 

148 

149  ‘  Cfase  fas  ctfreni  torm 

150  DoCmlCbss 

151  ■  Operr  specified  form 

152  stDocNams  -  frmRDM_Mwn_S«at:hbQard' 

153  OoCmlOpenFanmlOocNsme. . .  stUnkCritoria 

154 

155  ExLCommandB.CIcic 

156  Ext  Sob 

157 

158  Err_Comn8nd8_Cfck: 

1SS  MegBox  Err.Oescriplan 

160  Resune  ExLCorrrTsndQ  Cfck 

161 

162EndS4i> 

Form:  tnTflOM_Main_Swk:hboard 
Code 

1  Altibute  VB_NBmo  •  ■Fofrn_frTORDM_Main_S*«fchboor<r 

2  Attfaute  V0_Creatable  -  Tn» 

3  Attfaote  VB_Predecteredtd  -  True 

4  Altibute  VB.Exxised  •  Fatee 

5  Oplon  Corrpare  Database 

6  Ojxion  0plcit 

7  Piivale  Stfa  Corniw*dO_Cfck() 

8 

9  Or  Error  GoTo  Err_CoiT(TandO_Cick 

10 

1 1  Dim  sOocNune  As  Sting 

12  Dim  slinkCritBria  As  Sting 

13 

14  '  Cfaae  fie  curer4  farm 

15  OoCmd.Cbse 

16  'Open specified  (arm 

17  stOocName  -  'frmfrrpartE^xttSvatcMxMrtr 
IS  OoCrrdOpenForm  stDocName, , .  stUikCrilsria 

19 

20  ExLComnandO.CtcIc 

21  Ext  Sub 

22 

23  Err.CorrraandOjCSck 

24  MsgBox  Err.Deecripfior 

25  Ftosume  ExLC«TniandO_CSck 

26 

27  EndSub 

28  Private  Sti>  Connmand2_CSck(} 

29  On  Error  GoTo  Err_CarT¥nand2_CSck 

30 

31  Dim  sCocName  As  Sting 

32  Dm  saJnkCritoria  As  Sting 

33 

34  'Cfase  tie  current  form 


1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 


1961 

1962 

1963 

1964 

1965 

1966 

1967 
1966 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 
1965 


1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 


2005 

2006 
2007 


2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 
2019 


2021 

2022 

2023 

2024 

2025 


2034 


2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 
2060 
2051 
2062 


2057 

2058 
2069 
2060 
2061 


2064 

2065 


2067 


2071 

2072 

2073 

2074 

2075 

2076 

2077 
207B 

2079 

2080 


35  DoCmd.Cfase 

36  '  Open  specified  form 

37  sCocName  -  ‘IrnMaintananceSMtchboerd' 

38  DoCrrd.OponForm  siDocNsme. . ,  stUnkCritoria 

39 

40  ExLCorrmBnd2_Cfick: 

41  Exit  Sib 

42 

43  Err_Comman(t2_Clck: 

44  MsgBox  Err.Oescriplon 

45  Resume  ExL.CofTTTtand2.Cick 

46 

47  EndSub 

46  Privato  Sub  CammarxM.CSckO 

49  Di  Error  GoTo  Err.CotrmrxM.Cick 

50 

51  DmdOocNameAsSting 

52  Dm  stUnkCriMria  As  Sting 

53 

54  '  Cfase  lie  cirrent  farm 

55  DoCmdCtase 

56  'Oiert^jecifiedform 

57  stt)ocNMTw  -  'IrmPreprocessing&EteculonSMfchboard' 

58  DoCmd.OpenForm  sCocName. . .  stUnkCriteria 

59 

60  ExLConmMxM.CSck 

61  Exit  Sub 


63  Err_Command4_Cick: 

64  MsgBox  Err.  Descriplon 

65  Rasume  Ext_CatTTrond4_CSck 

67  BidSU) 

68  Private  Sii>Corrvmnd6_Cick() 

69  Di  Error  GoTo  &r_Comnwid6  dck 

70 

71  Dm  StOocName  As  Sting 

72  Dm  stLinkCritocis  As  Sting 

74  •  Cfase  fie  citrent  form 

75  DoCmdCfase 

76  ‘  Open  specified  form 

77  StOocName -'tmAiMlyzeReaiir 

78  DoCmlOpenFormsDocNvne. . .  stLiiACriteria 

79 

80  ExLConTTtendS  CfcJc 

81  ExtStb 

82 

83  Efr..CammBnd6_Cfck: 

84  MsgBox  Err.  Descriplon 

85  Rssume  ExLC«rntend6  Cick 

86 

87  &idSub 

88  Private  Sub  Comn«iid8..Cick(} 

89  On  Error  GoTo  Grr^CarrvTxndB.Cick 

90 

91  DmatOocfitemeAsSting 

92  Dm  StUnkCriteria  As  Stim 

93 

94  •  Cfase  tie  current  farm 

95  DoCnxlCbse 

96  ‘  Open  specified  torm 

97  sSkxtNsme  -  ‘trmGenerateReporr 

98  DoCmlOpenFormstDocNsme. . .  stUNcCritoria 

99 

100  ExiLCarmianda.CSck: 

101  Ext  Sub 

102 

103  Err.CorTTraitdB.Cick: 

104  MsgBox  Err.Descriplon 

105  Resume  ExLCcxrrTMndB.Cfck 

106 

lOrBxlSib 

108  Private  Sub  btiExUCfck() 

109  On  Eirof  GoTo  Err_btiExL.CSck 

110 
111 

112  DoCrmCbse 

113 

114ExtJ)tiExit.Cick: 

115  Ext  Sub 

116 

tlTErr.btiExLCick: 
tie  MsgBox  Err.Deacripfon 

1 19  Rssume  Ext_b«iExiLCick 

120 

121  Bid  Sib 

Form:  trnflectasstficalon 
Code 

1  ABributo  VB.rteme  -  'Fam_fnnfteclaasification' 

2  Altibute  VB.Croatafate  ■  True 

3  Altibute  VB.Prodecteredld- True 

4  Altibute  VB^Eiposed  -  Fatee 

5  Ctebon  Conpare  Database 

6  CpIonEipficit 

7 

8  Private  Sub  crrbCteasNjmberJUterUpdateO 

9 

10  DmstConvertAsSting 

11 

12  Ms.t)tftepanDate  -  Me.cmbCtessNurTber.CakaiTi(2) 

13  MebAICC  .  Ma.CTibCte3sMsTber.Caksm(4) 

15  'CoriMrttte  fiscal  year  b  a  two  dIgilnuRtMr  lor  RDSFUe 

16  stCcxiMrt-CSt(Me.ciTbCteaafksrber.Calumn(3]} 

17  stConwrt  ••  Ri^stConverL  2) 

18  Me.MFY  •  amfstrConverl) 

19 

20  Me.tXAsai7«nsn(rype  -  IT 

21 

22  BidSib 

23 

24  BMtoSubcnbCtessMjrrber_Enter(] 

25 

26  Dm  stSCL  As  Sting 

27 

26  ’'nisquery  finds  tie  clan  numbers!  report  dates  text  class 

convening  dates  associated  vwth  »«  chosen  school 

29  stSQL  -  -SELECT  BNA^EXIRACr.Classl^sTbor  PK. 
BN^.EXTRACT,CtessConvOBte.  BN\.EXTRACT.Repor6tb. 
Bh«_EX7RACT.FiscalToaf_PK.  BfW^EXTRACT.MCC  FROM  BNA^EXTRACT  INNER  JON 
SCH.TGT_MOS  ON  (BNA_EXTTIACT.Coi»seM»tber_PK  - 
SCH_TGT_MOS.TCouraefkjmbef_FK)  AMD  (BNA.EXTRACT.TargeWOS_PK  - 
SCH_TGT_MOS.Ttrgo(MOS_FK)  WfCFE  BNA.BaRACT.C(xmeMmber  PK  . 
ForrTBlIrTTiFtocteasiricalfarlcfrtCasseMsibor  AND  SCH.TGT_MCS>MOS  FK  - 
FornteflimRectessiricaliof^fiMMOS:* 

30  Me.ctrbCinsMjiber.Rowfiaui:e  -  stSQL 

31 

32  EndSub 
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2oei 

33 

2211 

52 

MatafTotaFercentFi  >  ln1((Me.bfrotalAssigned  /  Me.hfTotalCfoob) 

2062 

34  PrivrtSubcn*<>xr»riiT*erJ^tt8rlJ^ 

2212 

53 

2063 

35 

2213 

54 

2064 

36  hfe  tdAMOS  -  (McrrbCkxneMjniMr.Cokj^ 

2214 

55 

EndSub 

20SS 

37 

2215 

2066 

38  EndSub 

2216 

Form;  IrtrSchools 

2067 

39 

2217 

Coda 

2068 

40  PrnatoSti>«Ti>SSNJkftarUp>(lat»{) 

2218 

t 

Attribute  VQ.Name  -  'ForrrufmSchooh* 

2069 

41 

2219 

2 

Attribute  VB  Craatabte  ••  True 

2090 

42  U».USO  -  MB!cnt>SSN.CokjnvK1) 

2220 

3 

ABribute  VB.PredeclaredkJ  -  True 

2091 

43  MB.bdGradOate  >  MsICTTfcSSN.  Cobmn(2) 

2221 

4 

Attribute  VB.Eqioeed  ■  Fabe 

2092 

44 

2222 

S 

Option  Compntn  Ctfobase 

2093 

45  EndSU) 

2223 

6 

Option  Erqiicit 

2094 

46 

2224 

7 

2095 

47  PrivatoSubcrrbSSN-EriterO 

2225 

8 

Private  Sub  AMQ6.PK>tterLpdate() 

2096 

48 

2226 

9 

Dmrec  As  Recordset 

2097 

49  Dim  sIrSQL  As  Sting 

2227 

10 

Dm  dbl  As  Database 

2098 

so 

2228 

11 

DmstSGLAsSting 

2099 

51  stSOL  -  •SELECT  OISTINCTTOW  MAMNE.SSf^PK.  MMANE  Sa, 

2229 

12 

2100 

MAHhC.GradOato  FRCM  MARNE  LEFT  JOIN  ASSIGMCNT  ON  MARNE  SSN^PK  « 

2230 

13 

‘  Update  foe  (top  donn  isl  for  AMOS 

2101 

ASSIGN«Nr.SSN_FK  WHERE  («ASSIGr*«Nr.SSN_PK)  1* 

2231 

14 

stSQL-  -SELECT  TargeWOS.PK  FROM 

2102 

52  M».cmbSSN.FtDw6ourc«  -  stSQL 

2232 

qryUstUtaodTargelMOSFromTAflGET.MOS  WICRE  TCoorseNurrbor.PK  -  *  & 

2100 

S3 

•2233 

15 

Me.AMOS.PKRon6ource  -  stSQL 

2104 

54  EndSub 

2234 

16 

MB.tafTargBMOS_FK.Ffoi«6ovce  -  stSQL 

2105 

SS 

2235 

17 

2106 

56  Pmtfa  cfTi>SSAFmdJUtsrMpdato() 

2236 

18 

‘  Update  foe  AMOS  FK  in  foe  (ddd  retolfon  SCH_TGTJ«)S 

2107 

57 

2237 

19 

Forn»!frrnSchoob!3ublrrriSchooli!AMC)6_FK.Valuo  -  Me.AMC6_PKValue 

2106 

SB  Dm  R  As  FtoconlMl 

2238 

20 

2109 

59  SetR-MB.nBCardsoK3ane 

2239 

21 

■  Update  foe  TargoWOS.FK  in  foe  child  rolalon  SCH_TGT_MOS 

2110 

60  RFindRfsl'lSSN_FKl-'&Chf(34)SMBlIciTbSSM^ind]&Chr(34) 

2240 

22 

Set  dbl  -  C«mentDb<) 

2111 

61  MB  Sootonarlo  RBooknwk 

2241 

23 

Set  rec  >  db1.CpenReccrdsel(stSQL  dbOpenSnapahot) 

2112 

62  MB!IcrrbSS^Flnd] .  Nul 

2242 

24 

FarmairrmSchootalaubtrmSchoolirTargelMOS_F]CVafoe  -  rectTargeWOS.PK 

2113 

63  MD.crTi>SSN.S«(Focus 

2243 

25 

2114 

64 

2244 

26 

'  Input  foe  correct  MCC  value  for  foe  selected  course 

2115 

65  EndSub 

2245 

27 

stSa  -  -SELECT  MCC  FROM  TAHGETJCS  WHERE  TCourseHmbor.PK  -  "  & 

2116 

66 

2246 

lUlB.SCouraeNurfber_PtCVakje8  “ 

2117 

67  PrivaM  Stib  DeM»_Cich() 

2247 

28 

Setdbt.CurentObO 

2118 

68  Ob  Eiror  GoTo  Err  DeMs.CSck 

2248 

29 

Setrec  «  dbl.Open[tecordset(3trSQL  dbOpenSnapahot) 

2119 

69 

2249 

30 

MS.IMCC. Value  -  reclMCC 

2120 

TO 

2250 

31 

2121 

71  DoCmd  DoAtonJtvn  acFanrBar.  acEdi«i4Bnu.  8, ,  acManuVerTO 

2251 

32 

'  U^te  foa  TCoineNmber  f  K  in  foe  cNU  relation  SCKJGT.IMOS 

2122 

72  DoCmd.  DoMsoultem  acFarmBw.  acEdMaix;.  6. .  acMeouVerTO 

2252 

33 

Forme)tnnSchaoWaii>frmSchoalsrrCauraeHjTber_FK.Value  > 

2123 

73 

2253 

Ma.SCowseMjrrber  PK.  Value 

2124 

74  EMLDebto.CtcIc 

2254 

34 

2125 

75  ExtSub 

2255 

35 

EndStb 

2126 

76 

2256 

36 

2127 

77  Err_Datelo_C*ck; 

2257 

37 

2128 

78  AAsgBax  Err.Oascriptian 

2258 

38 

Private  Sub  bfoOear.CSckO 

2129 

79  Rosm  BatOeMs  Clck 

2259 

39 

21X 

80 

2260 

40 

Dmdbl  As  Database 

2131 

81  EndSti) 

2261 

41 

DmstSCLAsSting 

2132 

82 

2262 

42 

•  Dm  i  As  Integer 

2133 

83  PrivBto  Sti>  Ctose  Ctck() 

2263 

43 

Dmrec  As  Recordset 

2134 

84  On  Error  GoTo  Err  Ooaa.Cfck 

2264 

44 

2135 

65 

2265 

45 

Se(db1«CurrentOb() 

2136 

86  Dm  stfTocName  As  Sting 

2266 

46 

2137 

87  DmsIlJrkCiitarwAsSting 

2267 

47 

stSQL  -  -SELECT  DISTINCTROW  TARGETJAOS.TCoufseHjrrbof.PK  FROM 

2138 

BB 

2268 

TARGET^MCS  LEFT  JOIN  SCVLTGT.MOS  ON  TARGETJUDS.TargoWOS.PK  - 

2139 

89  ’  Ckise  current  (arm 

2269 

SCH_TGTJi40S.Tar9BM0S  FK  AND  TARGET  MOS.TCoofseNumbor.PK  - 

2140 

90  OoCmdCkMe 

2270 

SCH.TGT_MOS.TCou«eNurTber_FK  WHERE  ({(SCKJCST_MOS.TargeWOS_FK)  Is 

2141 

91 

2271 

NulV^(SCH.TCTJi4OS.TCoursebk«T*er_F10  Is  Nul))ORDERBY 

2142 

92  ‘  Open  specified  form 

2272 

TCourseMsrber  PK:* 

2143 

93  sOocNins  •  TrmPreprocening&ExeculionSvMfohboerif 

2273 

48 

Setrec  ■  (l>1.0penRecordset(stSQL  (bCpenOyrrasel) 

2144 

94  OoCmdOpenFormslOocName, . .  stLinkCnforia 

2274 

49 

2145 

95 

2Z7S 

SO 

llrec.EOF.FatoeThen 

2146 

96  ExLCtoae^CIck: 

2276 

51 

rec.MoveLa3t 

2147 

97  Exit  Sub 

2277 

52 

rec.liifoveRr3t 

2143 

96 

2278 

53 

End  If 

2149 

90  Err  Cfoae  CScic 

2279 

54 

2150 

100  kfegBox  Err.Daacriptton 

2260 

55 

‘  Ctear  imused  couse  nuibers  Ifom  foe  targeLinos  table 

2151 

101  Ffosurr«  ExLCbaa.CXck 

2152 

102 

2281 

56 

If  rec.ReccrdCourrt  >  0  Then 

2153 

lOSEiylSub 

2262 

57 

For  i  >  1  To  rec.RecordCount 

2154 

104 

2283 

58 

'  Oisabtes  foe  action  query  confirmaton  irwsage 

2155 

2284 

59 

AppicatoaSeCption  'Confirm  Acton  Queries'.  False 

2156 

Forrrt  fmnSchoolAssigTimBOb 

2285 

60 

OoCmiSetWarrsngs  (False) 

2157 

Code 

OOWfi 

61 

2IS6 

1  A&ributo  VB„Nune  >  'FcnT\_trTnSchootA33i7«nenb' 

2287 

62 

atSQL  -  -DELETE  '  FFCMTARGET.MOS  WICRE 

2159 

2  Altibuls  VB.Creafobie  >  True 

2288 

TAnGETJ^^Q5.TCour9s^4lrTter  PK  •  *  &  r»crrCocFaa>4jfTbf  PK  & 

2160 

3  Altibuto  VBJ’redeclaredld  •  True 

J?HQ 

63 

A1.E»cuto  stSQL 

2161 

4  Altibufo  VB.Eifiaaed  •>  False 

2290 

64 

2162 

S  Cpbon  Corrpare  Oatibaae 

2291 

65 

‘  Enabtea  foe  acton  query  confirmation  message 

2163 

6  Option  Eifificat 

2292 

66 

Appicaton.SeCp6on  'Confirm  Acton  Oueries',  True 

2164 

7  Privala  Sub  Cbw_CSckO 

2293 

67 

OoCmlSafWarnings  (True) 

2165 

8  On  Error  GoTo  Err.Cbae.Ctck 

2294 

68 

tecMoveHnl 

2166 

9 

2295 

69 

Nesli 

2167 

10  Dm  ftOocName  As  Stmg 

2296 

70 

End  If 

2168 

11  Dm  stUnkCritoria  As  Sting 

2297 

71 

2169 

12  Dm  dbl  As  Database 

2296 

72 

‘  Update  foe  Couse  Htrber  list 

2170 

13 

2299 

73 

atSQL  -  -SELECT  DSTINCTROW  TARGETJAOS.TCowsoHmber.PK  FflCM 

2171 

14  Set<±)1  >CunentOb() 

2300 

TAflGET_MOS  LEFT  JON  SCH.TGT_MOS  ON  TARGEr_MOS  .TargeWOS_PK  . 

2172 

15 

2301 

SCH_TGTJtilOS.TargeMOS_FK  AfO  TARGET_M3S.TCatsar*JT*or_PK  . 

2173 

16  ’  Cfoae  Ore  citrent  term 

2302 

SCK.TCT.MOS.TCoisaeHmber.FK  WHERE  {({SCH.TGr_MOS.TargeWCS_FK)  Is 

2174 

17  OoCmlCfoM 

2303 

Nul]AM3((SCH_TSrj40G.TCovaeHarber_n<)  l3H4)ORDERBY 

217S 

18  ‘  Open  specified  form 

2304 

TCourseHmber  PtC* 

2176 

19  slDocNaine  -  TrmAnalyzBRastir 

2305 

74 

Ma  SCourseNurrber  PKRowSouca- stSQL 

2177 

20  DoCmd.  OpenFormstD^Name.  , .  stUnkCritoria 

2306 

75 

.  2178 

21  Fdrrrw’IrrrV^natytertoaullSelFocus 

2307 

76 

EndSub 

2179 

22 

2306 

77 

2180 

23 

2309 

78 

Private  Sub  bfoReeatAFenatiea.ackO 

2181 

24  ExiLClc»a_CScfc 

2310 

79 

2182 

25  EMtSub 

2311 

80 

2183 

26 

2312 

81 

'  Diaabtes  foe  action  query  confiimalion  meesage 

2184 

27  £rr_Ctaaa_afok: 

2313 

82 

Apptcation.SalOplian  'Ccmfirm  Acton  Oreriea',  Fatae 

2185 

28  MsgSox  Err.Deecriptian 

2314 

83 

DoCmd.Se(Wamin^  (PalM) 

2186 

29  Resuma  ExiLCfoae^CSck 

2315 

84 

2187 

30 

2316 

85 

DoCmcLRavSCIL  ‘UPDATE  SCHOOL  SET  PenailyFactor  .  24;' 

2188 

31  EndSub 

2317 

86 

2189 

32 

2318 

87 

'  Enables  foe  acton  query  confirmaton  maasage 

2190 

33  Private  Sub  FonrcCurrentO 

2319 

88 

AppicatorvSelQpton  'CmSim  Acton  Ojeriee'.  True 

2191 

34 

2320 

89 

DoCmdSeMamings  (Tom) 

2192 

35  DmstrSQLAsStfog 

2321 

90 

2133 

36  Dm  rac  As  Raeortfaet 

2322 

91 

crrbPenallyView  -  'XiC 

2194 

37  Dm  dbl  As  Database 

92 

2195 

38 

2324 

93 

End  Sib 

2196 

39  Setdbi-CurrentDbO 

2325 

94 

2197 

40 

2326 

95 

Private  Sib  cnbCouraeHjTberRndJUtorUpdatoO 

2198 

41  'Cafov8atoa  he  total  quota,  and  nurrberolschoob  for  foe  rvn. 

2327 

96 

2199 

42  stSOL  -  *SELECT  SuT^SifrOtOjola]  AS  TotaCfoota.  Count(&nOCkJOta)  AS 

97 

Dm  R  As  Recordeet 

2200 

NivrtiwaSchooli  FROM  qryTotalOjotaforRin:' 

2329 

98 

Sot  R  -  Ma.RecocdaetCiona 

2201 

43  Set  rac  -  db1.0pen(tocardsel(sfrSQL  dbOpenSnapehoI) 

2330 

99 

RFindFirst  ISCouraeNurrber  PK]  - '  &  CH(34)  & 

2202 

44  M».btfro(B]Ojota  ■  recITotalQuotB 

2331 

MellcmbCowseHirberFind]  &  Ctt(34) 

2203 

45  Me.tiMunrbecOtScboota  -  recllfonrberaSchoob 

2332 

ia 

fite.BoolanBrk«  RBoofonark 

2204 

46 

2333 

101 

MallcrTbCoureeNuiberRnd]  -  Nul 

2205 

47  '  Catcutotos  foe  totaJ  number  of  asei^vemanls  for  foe  run. 

2334 

102 

Me.SCourseHtTber.PKSelFocue 

2206 

48  rtSQL  -  -SELECT  Surr<Co«nafFiscalYear_PK)  AS  TotalAssgned  FROM 

2335 

ia 

2207 

qryTolalCuotaFiledForFfon:' 

2336 

104EndStb 

2206 

49  Setnec  «  dbl.OpenRecordsettstSQL.  dbOpenSnapehot) 

2337 

105 

2209 

SO  MeJtafrotalAssigned  >  recrTotalAsai^ied 

2338 

lOePrivato  Sub  cnbPenaty  ViewJUtorUbdato() 

2210 

SI 

2339 

107 

75 

2M0 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 
2348 


2351 

2352 


2354 


2357 


2361 

2362 


2366 

2366 

2367 


2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 
2379 


2380 

2381 

2382 

2383 

2384 

2385 
2306 

2387 

2388 


2301 

2302 

2303 

2304 

2305 

2306 

2307 


2400 

2401 

2402 

2403 

2404 
2406 

2406 

2407 

2408 
2400 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 
2410 

2420 

2421 


2424 

2425 

2426 
24Z7 

2428 

2429 
24X 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 
2440 

2450 

2451 

2452 

2453 

2454 


2457 

2458 
2450 

2460 

2461 

2462 

2463 

2464 
2466 

2466 

2467 

2468 

2469 


108  S«ject  Case  cntPanilt/View 

109  Case  Mjf 

110  MPenaXyPactor  >  4  ‘  24 

111  Ca$e*3xr 

112  baPenaltyFactar  ••  3  ‘  24 

113  Case'^ 

114  bdPenatvFactor  -  2  ‘  24 

115  Caso'Hf 

116  WPenaltyFactor- 1  *24 

117  Case'iyar 

118  bdPonaIVFaciQr-24/2 

119  Case  'l/3ar 

120  MPenaByFacksri.  24/3 

121  Case  ■1/4)r 

122  bdPenaSy  Factor  ■  24/4 

123  End  Select 

124 

125  '  Sm  ^e  update 

126  DoCmlDaMeraitefn  acFonrear,  acFtecordsMerw;  acSawReccrd, , 

127 

128  End  Sub 

129 

130  Prn«te  Sub  Ccn*rardl4_Cicl<) 

131 

132  Dim  srSCL  As  String 

133 

134  •  Disables  tw  aclon  <jjory  confirrmtion  message 

135  Applcatian.Se(Optton  ’Confirm  Aefon  Queries*.  Fates 

136  DoCmdSelWamings  (False) 

137 

138  OoCmiajtiSQL  INSERT  INTO  TARGET.MOS  ( TCoursoAkaiber  PK, 
TargeMOS.PK.  MCC  )  SELECT  OISTI  NET  BNA_EXTRACT.C«sseNuTtx»r_PK, 
BNA^EJCTRACTTaf  99IM0S_PK.  BNA^^XTRACT.MCC  FROM  8NA_EXTRACT;* 

130 

140  '  Ensbiestw  acton  query  confirmalon  message 

141  AppicatoaSeiCpOan  ‘Confirm  Aclon  Queries*.  True 

142  DoCnilSe(Wan4ngs  (True) 

143 

144  '  Update  tw  Couse  NLarter  List 

145  s»Sa  -  •SaECT  DtSRNCTROW  TAneET_M^S.TCourae^4rt)er.F»K  FROM 
TARGCT.MOS  LEFT  JON  SCH-TOOCS  ONTARQET.MOS.TargelMOS  PK  - 
SCH.TGT_MC6.TargeM0S_FK  AtC  TAflGET_MOS.TCourser*rt)ef_PK  - 
SCH.TGT_MOS.TCouseHrt)er.FK  WPERE  («SCH.TGTJKS.TargeWOSJ=K)  ts 
Nd^AM^({SCH.TG^_MOS.TCou^so^4»ltler_F^  Is  7U))OROER  BY 
TCouseNu»*)er_PK;  * 

146  Ms.SCaurset4aTber_PK.Ro«6ouce  -  stSO. 

147 

148  End  Sob 
140 

150 

151  Private  Sob  C<m»nd30_CIci(O 

152  Dim  frm  As  Form.  c9  As  Consol 

153  Dim  varlten  As  Variant  Int  As  Integer 

154  Dim  s*^  As  String 

155 

156  ‘Ensues  tMcurent  record  is  save  to  IM  SCHOOL  table 

157  OoCmd-DoMencitom  acForrrear.  acRscordsMenu.  KSaveRecord, . 

158 

ISO  ‘Tits  code  enters  tie  selocted  Target  MOB'S  into  t»SCH,TGTJi«S 

160  Set  Imn  >  Formsifrnechoots 

161  SolC*-ftTrtterTwgelvOS_FK 

162  For  Each  varibn  In  clltensSetected 

163  FortnB-OToclColUTTiCourt-l 

164 

165  'TNs  puts  fw  value  found  In  tie  1st  bear  into  a  teiCboK. 
mateng  It  readabto  by  tie  query 

166  FarrrB!frTT£ctnQtetTafgen/alue.VakM  ■  cfl.Colifnn(lna.  vwitnd 

167 

168  '  Disables  the  aclon  query  conRrmafion  message 

169  Appicalan.SetOp6on  ‘Confirm  Aclon  Queries*.  False 

170 

171  ‘  Erteers  l«  value  Into  Iw  SCH_TGT_M05  table 

172  OoCirdOpenOuery  *qryUpdateSOLTGr_MOS' 

173 

174  ‘  Enables  tie  acton  query  conlirmaian  message 

ITS  AppScalofi-SefOplon  "Confirm  Aclon  Queries*.  True 

176 

177  Next  ini 
ITS  Ntadwltn 
170 

180  ‘Updetotw  Target  MOSist 

181  sbSQL  -  “SELECT  rTergelMOS.FK)  FROM  ISOlJQT_M0Sl  WKRE 
[SCouseKA*itoor_FK)  -  “  i  FormsfftniSchQohlSCourseNLrTbor.Rt.Vakje  &  *"  4 
-  A/O  AMOS.FK  -  “  4  FormstfntfichooblAMOS.PK. Value  4 

182  ForrrattrrrScbootenJsn'argeMOS^FK.HtaDry.RmvSauce  -  stSQL 

183 

184  ‘Update  tie  PotanlalTuget  MOSist 

185  S45QL  -  *SaECT  TargelMOS.PK  FRCM 

qryUstUnjoedTs»geWOSFromTARGET_MOS  Wi€R£  TCouseNunbor  PK  -  “  4 

186  Me.tefrargaM06.FK.RcMSouce  -  sbSQL 

187 

188  ‘  Update  tvs  Cause  RAxrber  Lisi 

180  sbSQL  -  -SaECT  DISTINCTOOW  TAnGET_MDS.1CouseNjiTtw  PK  FROM 
TAnGET.MOS  LEFT  JQN  SCK.TGTJ40S  ON  TARSCT.MOS.TafgefMOs'' PK  - 
SCH_TGT_MOS.TargetMOS_FK  WHERE  (({SCH-TGT  MOS.TargedwOS.FK)  Is 

190  Me.SCourseNuRtMr_PK.ftMSouce  -  sbSOL 

191 

102  '  Update  Ime  starrp 

193  [SchjnmeStamp)  -  Now 

194 

195 

196  End  Sub 
107 

106  Private  Sub  Conynand40_Clcti() 

199  Dim  frm  As  Funx  cl  As  Conbol 

200  Dimvarttn  As  VariariL  ini  As  Integer 

201  OimsbSQL  AsSbtog 

202 

203  ‘  This  code  Delate  tw  selected  Target  MOSte  and  its  associated 
en>tes  from  tie  yH-TCTJylOSyte 

206  Set  cl  >  lrmlLisrrargBaC}6_FK_Htetary 

206  For  Each  vaxlbri  In  cf.ttenmSeloctod 

207  Fcrkil  ••  OTocICoUnCouni- 1 
206 

209  ‘TNsputetisvaluatauidjntoelsibcKlnbataxtbaK. 
makirig  it  readable  by  lie  query 

210  FormslfnnSchoote!Targ6fVal».Vatee  -  clColann(inO,  wrttrr^ 

211 

212  ‘  Olsabias  lie  aclon  query  confirmelon  message 

213  Apptcaian.SelCptton  “Confirm  Aclon  Queries'.  Fahe 

214 

215  'Deletos  lie  record  assodabd  with  lie  specified  value  fr on 
tie  SCH.TGT_M0S  tabte 

216  DoCfixtOponOuery  *qyDeteteSCH.TGT>IOS- 

217 

216  ‘  En^lss  fie  aclon  query  corllrmBlan  message 

219  Applcal<xi.SalOpllon*CcrifirinAcfonQuerias*.Tnje 

220 

221  Nextlnl 


2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 
2470 

2480 

2481 

2482 
2463 


2486 

2467 


2460 

2490 

2491 

2492 
2483 


2405 

2406 

2497 

2498 

2499 

2500 

2501 


2503 

2504 


2507 


2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 


2521 


2524 

2525 

2526 

2527 


2529 

2530 

2531 

2532 

2533 


2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 
2540 


2553 

2554 

2555 


2567 

2568 


2570 

2571 
2672 

2573 

2574 

2575 

2576 

2577 

2578 

2579 
2560 

2581 

2582 

2583 


2586 

2587 
2586 

2589 

2590 


222  Naxtvarllm 

223 

224  ‘Update  lie  Target  MOSist 

225  slrSQL  -  -SELECT  (TargeWOS.FKl  FROM  ISCH_TGT_MOSI  W1€RE 
[SCoufseNJtnber_F><)  -  ”  i  ForTTBlfrmSchootetSCourserArrber_PtL Value  1  “  i 
•  AND  AMOS_n<  -  "  &  ForrolfrmSchootefAMOS  PK.VaJuo  &  *“ 

226  F0nmtffmSehoote?UsfrafgeMOS_FK_Hstary.RowSource  -  slrSQL 

227 

22S  ‘Update  the  PotenSal  Target  MOSist 

229  strSQL  -  ‘SELECTT^geWOS^PK  FROM 

<TyUstLtouserfTafgeMOSFromTAflGEr_MOS  WTCRE  TCousehUrber.PK  -  ”  & 

230  Ma.tetTargely06  FK.RiM£ouce-strSaL 

231 

232  '  Update  the  Cause  Marber  List 

233  strsa- ■SELECT  DISTINCTTWTAHQET.MOS.TCouseNLrtbef.PK  FROM 
TARGET_MOS  LEFT  JOIN  SCH_TGT_MOS  ONTARGETJtOS.TargeWOS.PK  . 
SCH_TCT_MOS.TargelMOS_FK  WFERE  (((SCK.TGTJWOS.TafgeWOS_FK)  is 

234  Me.SCoursee4i7ber_PK.nowSouce  ■  slrSQL 

235 

236  ‘  Update  Ime  stamp 

237  [Sch_-n(wiStsmp}  -  Now 
236 

230EndSU> 

240 

241  Private  SU>  FonTL.BeroreUpdato<Caricel  As  Integer) 

242 

243  [Scti_TmStamp] .  Now 

244 

245  End  Sub 

246 

247  Rlvate  Sub  FofTT\_Cutenl() 

248  Dim  stSQL  As  Sling 

249 

250  ‘L^to  the  Potenlal  Target  MOSist 

251  slrSa  -  *SEL£CTT«gotMOS_PK  FROM 

qryUsUnusedrargetMOSFromTAAGEr  MOS  WHERE  TCouseMfrber.PK  •  ~  & 

252  Ma-tetTargetMOS  FKFtowSouce  -  sISO. 

253 

254  '  Update  Iw  Target  MOS  IM 

255  rtSa  -  -SELECT  [TafgeMOS.FKl  FROM  (SCH_TGT_M0S1  WFERE 
ISCouseHiitior_FX)  -  4  Me.SCousoNufrber_PK.Value  i  “  &  *  AND  AMOS.FK 
-  -  4  Me. AMOS.PK.ViJue  4  “ 

256  Mo.UsRargel«S_FK_Hstory.RjaSource  -  steSQL 

257 

258  '  Update  the  Couse  Itorrber  list 

259  rtSa  -  -SELECT  OISRhCTROW  TARGET  MOS.TCouseeUiber.PK  FROM 
TARGET_M0S  LEFT  join  SCH_TGT_M0S  ONTARQETJVIOS.TafgeMOS.PK  - 
SCH.TGT.MOS.TargeeMOS_FK  AND  TARQ£T_MOS.TCouseMjrrbor  PK  . 
SCH.TCrr.MOS.TCourset*xrbof_FK  WFERE  «(SCH_TGr_MOS.TafS>WOS_FK)  Is 
ia)AND((SCK.TCrr_M0S.1Cowsot4Kber_FK)  Is  Xbl))ORDEH  BY 
TCouseM«ber_PK;  * 

260  Ma.SCouseNUrTber_PK.FIowSouce  -  steSQL 

261 

262  ‘  Forces  user  to  enter  date  lor  course  nuvber,  before  tw  Assigned 

263  II  lsNjl(Me.SCouserUTber  PK . Value)  Ttwi 

264  MsrAMOS_PK.Enabtod- False 

265 

266  ‘AlowstteuMfbentaranasslTiedMOS 

267  Etee 

268  MelAMOS.PtCEnabtod  .  True 
260  Endtf 

270 

271  ‘  Prevents  the  user  Irom  acektontafy  changing  a  course  number 

272  fl  lsMJ(SCourseNunber_PK)  TTien 

273  Ma1SCausaNint>er_PK.Loclasd  -  False 

274  Etee 

275  Me1SCouseNurtber..PK.Locloed  -  True 

276  End  II 

277 

278  ‘  Prewnte  tie  user  from  acctdenlaly  changing  an  AMOS 

279  If  tahki(AMOS_PK)  Then 

280  MalAMOS.PK.Locked  .  Fabe 
2B1  Etee 

282  MelAMOS^PK-Locked-True 

263  End  If 

284 

285  -l^xtetolv  penally  tactor  View 

286  SetecICasebdPen^Factor 

287  Caae06 

288  crrbPenally  Waw  >  'ax’ 

289  CBse72 

290  cnbPenallyVIew- *af 

291  Caae48 

202  cnbPenaHyVtew-rax- 

293  Caae24 

294  crrbPerteByViaw.  “liT 

295  Case12 

26  cfitoPenaNyVlewi.  'i/2r 

27  Casas 

296  cnbPenanyV)ew«*1/3r 

290  Case6 

300  cnbPonUtyViow-  ‘l/ax* 

301  EndSotecI 

302 

303 

304 

305 

306  End  Sub 

307 

306  Private  Sub  SCourseNurbar.PKJUtorUpditeO 

309 

310  Dim  rec  As  Recordset 

311  Dim  ct>1  As  Database 

312  OlmsaSQLAsStong 

313 

314  ‘UpdtoelteUap  down  1st  for  AMOS 

315  sfrSCL  .  “SELECTTxrgeWOS.PK  FROM TAHGET.MOS  WFERE  7Couser*r*ar_PK 
-  -  4  Ms.SCoursoekitT*or_PK.Vak»  4  “ 

316  Mo.AMOS_PK.RowSouce  -  rtSOL 

317  ‘MeJsfTargeACS.FK.RowGource  -  steSGL 

318 

319  ‘  AlowstwuaartoarttoranasalTiedMOS 
KO  Mo!AMOS_PK,EJi^ilod  -  True 

321 

322  End  Sub 

323  Private  SiJ)  btoOetote.ClckO 

324  On  Error  GoTo  ETr_MnDetoto_Clck 

325 

326  '  Disables  tw  aclon  query  conflrmaltn  message 

327  Applcallon.SeOplon  *Confirm  Aclon  Queries*.  False 
326 


2591  32  ‘  Deletes  tie  record  associated  alii  lie  sped  Red  vakie  from  tw 

2592  SCfl.TGr_MOS  blfie 

2583  330  OoCmd.Opena»ry  *qryDetoteSCK.TGT_MOS£nlrY* 

2594  331 

2595  332  ‘Detatostw  record  associated  will  Iw  specified  value  from  tw 

296  SCHDa  table 

2597  333  ‘OoCmd-QpenQuery  “qryOaleteSCHClOLEnry* 

2598  334 

2599  335  ‘  Enables  Iw  aclon  query  confimtalon  tresaage 


76 


2000 


336  AppicafoaSMOpiion  'Confirm  Action  ONTwa',  Truo 

2601  337 

2602  338  DoCmd.DcMgnu!lamK:ronTear.  acEdlMenu.  8. .  acMenuVorTO 

2603  339  DoCfnd.DoMenultomacForrrear.  acEdilMenu.  6. .  acMenuVorTO 

2604  340 

2606  341  EaLbtiiOoMe.Ciclc 

2606  342  EatSub 

2607  343 

2606  344  Err_btiiOol0*>_Caclc 

2600  345  MsgBoxErr.Ooscription 

2610  346  Reetm  EaLMnOeieto.Cick 

2611  347 

2612  348EndSU) 

2613  349Prn«taStibb»iClo5e.Cfa:kO 

261 4  3500  Error  GoTo  Err.btrtOooe.ack 

2615  351 

2616  352 

2617  353  DoCmd.Cbso 

2618  354  DoCmd.Op«nFortt>'lrrrMaini8nencoS>«lchbo«rer 

2616  355 

2620  356EMU3inaoM_Clci(: 

2621  357  Ext  Sub 

2622  358 

2623  359Err_b»Oose.Cfclc 

2624  360  UigBox  Err.Daicripioo 

2625  361  Rbsuto  Eat_bbTCIoa»_Clct( 

2626  362 

2627  363EndSii) 

2626 

2629  Form:  fni6choonbPEF_Maint 

2631  1  AltiSjUtis  V8_Na«T»»'Fonix,ttmSchoonbPEFJ4ainr 

2632  2  VB.Creahble  ■  True 

2633  3  AiribuJe  VS_Prodochr«dW«True 

2634  4  AirSutB  VB_Ei4X>Md  «  Fabe 

2635  5  Coition  CorrfiarsDatobaee 

2636  6  Option  Eifitcit 

2637  7 

2638  8  PrivalBStiibtiiaoMi.CtidO 

2639  B  O  Error  Goto  Err  JsaOoao.Cick 

2640  10 

2641  11 

2642  12  OoCmd.aDM 

2643  13  OeOmd-CpenForm  'hnAMraarMncaSwiicHnaRf 

2644  14 

2645  IS  EaLbtinOoae.Clck: 

2646  16  EatSub 

2647  17 

2648  18  ErrjaOose.CicIc 

2649  19  MsgBoxEir.Oeacription 

2^  20  Reeur»  EaLMnCtose.Ock 

2651  21 

2652  22 

2653  23  EndSti) 

2654  24 

2655  25  PrMteSubbtiiOeleto_ack() 

2656  26  Oi  Error  GoTo  Err.bmDotete.CIck 

2657  27 

2658  28 

2659  29  OoCmd.DoMBnJti#macForrteBr,aeE<iWBnu,8.  .icMenuVorTO 

2660  30  DoC>nd.DoMDrultoinacFormBar.  acEdiManu.  6.  .acMenuVerTO 

2661  31 

2662  32  EaLbMMete.Cack: 

2663  33  EatSub 

2664  34 

2665  35  Err_b*»OotolB_CSck: 

2666  36  M»^x  Etr.Daecripton 

2667  37  nasTO  EaLb«iOeleto_CIck 

2668  38 

2669  39  End  Sub 

2670  40 

2671  41  Prwste  St*  CIrbCounB^4^I*orFind_A^1BrUpdat90 

2672  42 

2673  43  OimRAsnecordtet 

2674  44  S«tR-Ma.Rscard9etCaDne 

2675  45  RrindFtrsIlSCoursoNunber_PKl-*&Cbr(34)» 

2676  Met[cnnbC(XX9Q8ksitMrRndl  &  Clv(34) 

2677  46  Me.Boolonark  >  RBootoiark 

2678  47  Me![cntiCata9afAaitMrnnd)  -  NJ 

2679  48  Ma.SCour^e^ia^ber.,PK.SeiFoclB 

2680  48 

2681  SO  End  Si* 

2682  51 

2683  52  MvBtoSi*FarTTi_CtarertiO 

2684  S3  0un3frSa.AsS»ing 

2686  55  '  Update  t«  Potential  PEF  fist 

2687  56  »tiSCL-*SEl£CTDtSTO4CrmOWIP£Fl.JPEF_PKl  FROM  PEFLfFT JON 

2888  qryScb_RatCNtPEFl.IPEF_P)q-I(FySch_Pon.!PEF_FK|W«RE 

2689  a«7ySchJ>of].[PEF_FKIIsr*ti)OfiDER8Y[PEF].IPEF_PK];- 

2880  57  Me,Lj5AJh»olBctodPEF.fioaS(xaca-s»SCL 

2692  59  Updatotw  Selected  PEF  List 

26S3  60  strSa- 'SELECT  IPEF.FK]  FROM  qrySeb_Pol;' 

2684  61  Me.ljs£«h>ctodPEF.n>M5otfC«-stSa. 

2695  62 

2686  63  End  Sub 

2697  64 

2686  65  PrMlsSi*Le(tArrf>w_CSckO 

2699  66  DimlrmAsFonn  cti  AsCorfrot 

2700  67  OwnwIknAsVananiii*  As  Integer 

2701  68  DimstiSCLAsStiing 

2702  69 

2703  70  ‘  Ensuras  tw  current  record  is  save  to  toe  SCHOOL  table 

2704  71  DoCmd.OoMenuitsmacFbrtnBar.  acRecordsMenu,  acSawRecord, . 

2706  72 

2706  73  ’  This  code  enters  toe  aefaeted  Target  MOS^  into  toe  SCHJn5T_M06 

2707  74  Sol  fern -ForiT^rtTfichoonbP£F_Maint 

2708  75  Setcl  tmi!LislhselBctBtf=>EF 

2709  76  For  EachvBr1tinlncfl.llBtT8SelBCted 

2710  77  ForindaOToctCakJtTinCoum- 1 

2711  78 

2712  79  'This  puls  toe  wluetound  in  toe  fist  box  into  a  tost  box. 

2713  malting  it  readabls  by  toe  query 

2714  80  FonnsJfnnSchoofToPEF_Maint!PEFValue.  Value  •  cl.Cotonn(inB. 

2715  81 

2716  82  '  Oisablos  toe  action  query  confirmation  message 

2717  83  Appfic:a1ion.SeCpion 'Confirm  Action  Qjeries'.  False 

2718  64 

2719  85  'Enters  toe  vaJus  into  toe  SCFLTGT.MOS  table 

2720  86  OoCmdOpenOjery  *qryUpdaiBSCH_PEP 

2721  87 

2722  88  '  Enables  toe  action  query  confirmation  message 

2723  89  ApptcatiorvSeCpion  'Confirm  Acton  Ojaries*.  True 

2724  90 

2725  91  NaSina 

2726  92  Nejjvarltin 

2727  93 

2728  94  ‘Update  too  Potential  PEF  fist 

2729  95  stiSa  -  -SELECT  DISRNCTRCW  [PEF].[PEF_PKI  FROM  PEF  LEFT  JOIN 


2730  «7vSch_R><  ON  [PEF).|PEF_PK)  -  IqrySch.FWJ  fPEF.FK)  WHERE 

2731  ((<yvSch.PBl3,tPEF.FKl  Is  tiU)  ORDER  BY  1P£F].IPEF_PK];* 

2732  96  Me.Li3tUBolectedPEF.flowSourca  ■  stiSQL 

2733  97 

2734  98  'Update  toe  Selectied  PEF  List 

2735  99  stiSCL  -  -SOJECT  (PEFJKJ  FROM  qnfSch.Pef;' 

2736  100  Me.ListSrtKtodPEF.Ro*6ource-s»«l 

2737  101 

2738  102EndS<* 

2739  103 

2740  104  PtMte  Sub  Ri^riArrow^CtckO 

2741  106  DimlrmAsFonr\cflAsConbol 

2742  106  Dim  varltin  As  VarianI,  ir*  As  Integer 

2743  107  Dim  sti^  As  Siring 

2744  108 

2745  108  ‘This  code  OeMs  toe  eelectod  Target  MOCs  and  ibassocistod 

2748  entiiee  from  toe  SCH-TGT.MOG  table 

2747  110  Selfrro- Forim!frmSchooIToP£F_Mamt 

2748  111  Setcl.  frm?ListSelecledPEF 

2749  112  For  Each  varltin  In  clIietmSelaciBd 

2750  113  Forin9.0Tocf.ColumnCounl>1 

2751  114 

2752  115  'This  pub  toe  value  lound  in  toe  fist  box  into  a  tod  box, 

2753  makino  it  readabis  bv  toe  ouerv 

2754  116  Forrr*ri»fnSchooiroPEF_Maint!PEFValuo.  Value -cti,Cc*snn(inH, 

2755  117 

2756  lie  '  OisaUes  toe  action  query  confirmation  message 

2757  119  Apptcation.Seppian 'Confirm  Acton  Queries',  False 

2758  120 

2759  121  ’  Oeleiss  toe  record  assocwled  with  the  apecified  value  from 

2760  toe  SCH.TGT_MOS  table 

2761  122  OoCmdOpenOjery  '(yyDeteteSCH-PEF' 

2782  123 

2763  124  '  Enables  toe  action  query  confirmation  message 

2764  125  AppicatioaSeCpton  'Confirm  Action  Qjeries*.  True 

2785  126 

2766  127  Nedinti 

2787  128  Nedvwltin 

2768  126 

2768  130  'Updsto  toe  Potential  PEF  1st 

2770  131  stiSCL  -  *SELECT  DISRNCTTCW  [PER  IPEF.PK]  FROM  PEF  LEFT  JON 

Z771  (yySch_Pe<CN(PEFlIPeF_P»<l-lcrySch_PqfI.fPEF_FK]WFEflE 

2772  a«yySch_Pe»l,(PEF_FKl  Is  hM)  ORDER  BY  [PEFI.[P£F_PK1:' 

2773  132  Ma  ListtJhaetectBdPEF.RowSource .  stSO. 

2774  133 

2775  134  ‘Update  toe  SeleciBd  PEF  List 

2776  135  sti^a  -  -SEIECT  [PEF_FK1  FROM  qrySeb.Pel;' 

2777  136  Me.listSelocto(f>eF.RBiw6ource  -  stiSQL 

2778  137 

2779  138EndSub 

2780 

2781  Fornt  (rmSchoolToPropedyMsint 

2782  Code 

2783  1  AltiibuteVB.,NMne.*FbnTLfnnSchooIToPropertyMainr 

2784  2  AltiibuteVB.Creatabie.True 

2785  3  Aflribute  VB.Predeclaredld  .  Tnje 

2786  4  AtributolQ.Eipooed-Fabe 

2787  S  Option  Corrpare  Database 

2788  6  Option  Ejpficit 

2789  7 

2790  8  Private  Si*  bkvCIoae.CtckO 

2791  9  Oh  Error  GoTo  Eir_blnClooo_Cfick 

2792  10 

2793  11 

2794  12  OoCmdCloao 

2795  13  OoCmd.OpenFoim'lrrrM(»ntenanc«Svatchboard* 

2796  14 

2797  IS  EaLbtoOoee.Cfidc 

2796  16  EatSub 

2799  17 

2800  18  Errj3kiCbse_aclc 

2801  19  MsgBox  Err.Oescription 

2602  20  Resurr*  EaLMiCtose.CSck 

2803  21 

2804  22  EndSi* 

2805  23 

2806  24 

2807  25  PrivaleSi*b»jOfllete_Cfick(} 

2806  26  On  Error  GoToEjT_b»Oelel»_Cick 

2800  27 

2810  28 

2811  29  DoCmd.OoMBrajttem  acFomfiar,  acEdHMenu.  8, ,  acMenuVerTO 

2812  30  DoCmdOoMenuHem  acFonTfiar,  acEdlMenu,  6. ,  acMenuVerTD 

2813  31 

2814  32  EdUjtoOaMe.Ctdc 

2815  33  Eat  Si* 

2816  34 

2817  35  Err_btnOsMa_CSck: 

28t8  36  MsgBox  Err.Oeacriplon 

2819  37  Resume  EaLJbtiiO^.Cick 

2820  38 

2821  39  End  Si* 

2822  40 

2823  41  Priwto  Si*  btiiLmelO.CSckO 

2824  42  Qr>  Error  GoTo  Err.btiLewsto.Cick 

2825  43 

2826  44  DimtiigRecorttAanAsLang 

2827  45  DimskSaAsStong 

2828  46 

2829  47  bighcordNum .  Mti.Ctarerjnecord 

2830  48 

2831  48  OoCtndCtose 

2832  SO 

2833  SI  OoCmlOperjFann  'bmScboorToPrapLMMainr 

2834  52  OoCmlGoToRecord  acDatoForm,  'IrmSchooTToPropUMNainr.  acGoTo. 

2835  togReccntoksn 

2836  S3  ForJi»!tiiTSchoclToPrepL«wi*ml!CheaenLaiail .  0 

2837  54 

2836  55  -updatit  toe  seiectid  property  1st 

2839  56  *Sa  -  -SELECT  IFPtopertyl^me.FKl  FROM  FlM>_SCH_PflOP  WtCRE 

2840  SCaurseMm*er.FK.''& 

2841  FormsIlrnGchoolfoPropLawWainilSCoursel^jmber.ncVakja  &  '  And 

2842  AM06JX-*'&ForrrB!frrnSchQonciPropUMeMaintlAMOS_PK.Vatije&-'-&‘ 

2843  AixJLevel-*&FormsllriiSchodToPropLovoWaineChosenL9yBl&'*4* 

2844  UNON  SELECT  (LPropertyNHr«_FK]  FROM  LOG.SCH.PROP  WHERE  SCouaeMjmber.FK 

2845  --&Fonm!frmSchoanbPropL»v««sirtt!SCo«eNiaTbor_PK.Vakje&"'4' 

2846  AfvlAMOS_FK--&Foims!tfiT6chooIToPropLeveMaintfAMOS_PK.VakjB&'~«, 

2847  And  Level  >  &  FonrBllnnSchoanbPropLeveMaintlChosenLevel  &  ** 

2848  57  FariT»!frTnSchooiroPropLeveMirjeis(.eielO.RQ>iMSotfce  ■  stiSQL 

2849  58 

2850  59 

2851  60  EaU)tii.«veO-Cticlc 

2852  61  EatSub 

2653  62 

2854  63  Err.btoLevelO.CtcIc 

2855  64  MsgBox  Err.Oescription 

2856  65  Resume  EaUAiijevelO.Cick 

2657  66 

2856  67  End  Sub 

2859  68 


77 


2860 

2861 


2667 

2668 
2669 

2870 

2871 

2672 

2673 

2874 

2875 

2876 

2877 

2878 

2879 


2689 

2880 

2891 

2892 
2883 

2894 

2895 
2806 
2897 


2901 

2002 

290Q 

2904 

2006 

2906 


2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 
2018 

2919 

2920 

2921 

2922 


2927 


2034 


2937 


2940 

2941 
2042 
2943 


2947 

2948 
2049 

2950 

2951 


2961 


2964 


2967 


2070 

2971 

2972 

2973 
2074 

2975 

2976 

2977 
2078 

2979 

2980 
2961 
2982 


69  Prh«leSubbM.«vatl„CSck() 

70  Ch  Error  GoTo  Err_b«rt,««l1_Clck 

71 

72  Dim  hgft9cor<#**n  As  Long 

73  Dim  strSOL  As  Siring 

74 

75  IngRocordNum  -  MaCurrenAecord 

76 

77  OoCmd.Cbse 

78 

79  DoCmd.OpenEorm  ■frmSchoofroPropLowkMainr 

80  OoCmctCoToRecord  scOstaFomt.  'ImiScSoonbPropLeMMatnf ,  scGsTo. 
kigHKorrtAsri 

81  FQrraifrrrGchoolToPropC«wMaint!ChosenL0v«l  -  1 

82 

83  ‘  UbdalB  seleciBd  Dfcosrt/  ist 

84  sfrSCL  -  *SELECT  [FProp6rtyNhn»_R<|  FROM  FlM>_SCH_PnOP  WHEFE 
SCo(Jr9eNjTt«r_FK  -  ~  & 

Fomv'trrrGchoon'oPropLewMsinesOwseAUfite  &  “  &  ■  And 

AMD6_FK  >  "  &  FarTrallrT7fichoarroProflcA«M^AJUOS_PK.VaJj^  &  ^  ' 

And  LmI  -  ■  4  F(*Tm!frrT6choonbPfopi.«MeMsineax»«iLov^  4  ~  S  ■ 

UMON  SELECT  [LProportyNamoJFKJ  FROM  LOG_SCH.PnOP  WHERE  SCou3«Nun*or_FK 
■  4  FormsttrmSetxaofToft  opLeveWiifitl  SCouraeAt»»t»r_PK.  Vslua  4  "  4 ' 

And  AMOS.FK  -  -  4  FofroltrnfichccfroPropljweMa^  4-4 

AndLevoi-  4  FcsirstfrTrSchooroPropLowMsintjCTiosenLmel  4 - 
as  Fcvms!1m£ctioo(roPropLmaMunt]ls«.«valO.Rosi^^  -  s»SQ. 

86 

87  E)»tJjW,4j«l1_Clck: 

68  EMtSti)  « 

80 

90  Err.bULBvHl.OicIc 

91  Ms^x  ErT.Descripion 

92  Resume  EsLWnLewH.CJck 
33 

94  EndSi4> 

95 

96  PrMiteSubbkiLsMt2_Cid<) 

97  On  &for  GoTo  Err.MiLevie^Cick 

98 

99  Dim  kn^accrcfijm  As  Long 

100  DimstrSOL  AsS»ing 

101 

102  hgRscartff^ti  MeCisreniRecard 

103 

104  OoCnxlClase 

105 

106  OoCmd-CponForm  •(rmSchoon’oR'opLewoWainr 

1 07  OoCnlGoToRBCord  scDstaForm,  *ffmSchoo(ToPropLe«Wainr .  acGoTo, 
hgflscordNum 

1 06  Foms!frn£choo(ToPropLA«Msinl!Ox>^^  -  2 

109 

110  'U^tatieseteclBdproperVist 

1 1 1  sfrSQL  -  'SELECT  IFProportyl'bme.FK}  FROM  FUC  SCH,PflCP  WHERE 
SCmxseNUnto_FK  -  *  4 

FornBlfrrrScixx3aoPropLeMMatneSCo(sseAl>rte^PK.Vslue  4  —  4  *  And 
AM06.FK  -  "  4  Fcrn«llr(rSchoanbPrapLevaMsint)AM06.PK.Vslue  4  -  4  ’ 

And  Lewi  -  ■  4  FbrTOltrmSchooaoPfopLwoWeineChoSBnLesiBl  4  “  4  ■ 

IWON  SELECT  [LPToper1yNsme_FK]  FROM  LOG.SCH.PflOP  WHERE  SCa«ef4srt»f_FK 
«  "  4  FornelfiTnSclKX3nbPropLsvaMsinCSCiX>ss(4sTter_PK.V8Jue  4  “  4 ' 

And  AMOS_FK  -  ~  4  FcrrrB!frn«<d1CX3^oPIV.e^^oMBirtf W  4-4 

And  LeMSI «  4  FcnrellmGchoonoPropLawMsmCChosenLeMel  4  ** 

1 12  Foni&'(rnlSchooroPropLeMAfa>nt!hti)ive)0.RaMi6ource  >  sfrSGL 

113 

1 14  ExU>tiLevet2_Cicic 

115  ExtSub 

116 

ll7Err_b*nLoyBe_CSck: 

118  MsgBox  ErT.Descripion 

119  Resisns  E)iLbtr*jWBC_aick 

120 

121  End  Sub 

122 

123  Private  Sub  bH-eweO.CtckO 

124  On  Error  GoTo  Err_btr4.evet3_Clck 
12s 

126  Dim  IngRecortOJum  As  Long 

127  Dim  seSCL  As  S8ing 

128 

129  Ingf^cordNtin  -  MaCurremRocord 
IX 

131  DoOrtlCbes 

132 

IX  OoCitilOiMnForm  'frmSchoon'oProtiLeyBMMnr 

134  OoCmd.GoToRecord  ecOstsForm,  *liTnSchoonoPropLeMM>mr.  kGoTo, 

hgRscorcKsn 

IX  Forms!(ftTfiehooiroPropLevdMiinl)ChosenLeiwl  ■  3 
IX 

137  '  Lkxteto  tw  selectod  propady  fst 

IX  UrSa  -  -SELECT  [FPfoport/NMT»_FK]  FROM  FIT®  SCHtPHOP  WHERE 
SCo«oH*»rbor_FX  -  "  4 

Forms)fmiSchoon'oPropLewBMsint!SC(xrseAksnfaer_PtCValue  4  —  4  ■  And 
AM0S_R<  -  "  4  Foni«ltrntSchoonbPrcpLev«M«f)tf  AMC3S_PK.V^  4  “*  4  • 

And  Level  -  '  4  ForrmlfrmSchoonbPropLeveMsineChaoanLjevel  4  “  4  “ 

UNON  SELECT  ILPrope»1yNwne.FKl  FROM  LOG.SCH.PROP  WiCRE  SCourseMjmber  FK 
-  ”  4  FQrna?ffmSchoon'oPropLewWaneSCo«orAsrt3er_PK.Vskje  4  “  4  ' 

And  AM0S_FK  -  "  4  ForrreJtrftGchoon'oPTopLoveMsmeAMOS^PK.Vskie  4-4 
And  Lewi  ■  4  FQrire.'ffTT£cNunbPropLeveMaint!Chas«nLevel  4  '' 

1W  Forra'ImiSchcx^oPrapLMMaineisLevelO.RowSource  ■  sfrSGL 

140 

141  E)iLbWjowt3_Clck: 

142  ExtSub 

143 

144Err_b*ij0vee_CSck: 

145  MsgBox  ErT.Descripion 

146  Restms  ExL.bbijewl3_Cick 

147 

148EndSti> 

149 

150  Privets  Sub  b«.evBl4..Clck() 

151  On  Error  Goto  ErT.^beijevet4_Cfck 

152 

IX  OknkigF^COrdHisn  As  Long 
154  Dim  sfrSQL  As  String 
IX 

IX  hgRscartt4sn  ■  MaCurrervAscord 
157 

IM  DoOndLOoee 
1S9 

1 X  OoQTd.OpenFom)  -frmSctworTol^qpLeveMiinr 

161  DoCmdGoToRecord  scDstoFonn.  ‘frmSchoolTolVopLeveMainr.  ecGoTo, 
IngRecordNum 

162  FetTO)trrT£choorroPropLeweMwnl)ChosenLMel  >  4 
IX 


2963  164  '  l^sdato  tve  selected  propert/  fst 

2964  IX  lirsa  -  -SELECT  (FPfopert/Mtfne.FK)  FROM  FlJND_SCH.PROP  WHERE 

2965  SCarsoAUTtber_R(--4 

2906  Forms.*fm6choorroPropLeveMiinfiSC(xsseHiTto.PK.Vskje  4  —  &  *  And 

2967  AM0S_FK  -  “  4  FQrTT»!frri6choenbPropLeMe«»inl!AMC»_PK.V«luo  4  -  4 ' 

2968  And  Level  ••  -  4  ForrraifrmSchoofroPTopLeveWsinliChaeenLevd  4  -  4  - 

2969  LNON  SELECT  fLProp8fVf*wn9_FK]  FROM  LOCLSCH.PRCP  WHBC  SCoi«oNunt)er_FK 


2990  -  “  4  FonTellrmSchocfrQPropLevdMsinBSC<xgser4sTfeer_PK.  Value  4  ”  4  * 

2991  And  AM0S.FK  -  '  4  Forms!  frrtGchoofroPropLoveWainl!  AMOS.PK.V*Jue  4-4 

2992  AndljMl>  4  Forms!fnrScheo(ToPropLeveMainl!Cnoaen|jMl  4  ** 

2993  IX  FanTBlfnrGchoon’c^'rapLeveMuneMLevelO.RowSoixce  -  skSQL 

2994  167 

2995  IXEriLMiLsveU.CfcIc 

2996  169  ErilScij 

2997  170 

2998  171  Err..b*iLoveM_Cick: 

2909  172  MsgBcx  Err.Descripion 

3000  173  Ftesume  &iLbW4WBM_aek 

3001  174 

3002  ITSEndSob 

3003  176 

3004  i77Prn*teSii»bW.ewe_C»cl4) 

3005  iTBQn  Error  GoTo  Err.bmLewB.Cfck 

3006  179 

3007  IX  OimhgRscordNumAsLong 

3006  161  Dim  strSa  As  String 

3009  182 

X10  IX  kvgRscanfftksn  Ms.CirrenlRBcord 

XII  184 

X12  IX  OoCmtCbse 

X13  IX 

X14  187  DoQixlOpenForm-tTtnSchoon’oPTopLov^ 

XlS  IX  DoCmlGoToRBcordacOabForm ’lrrnSchoonbPrapL0veA4ainr.  acGoTo. 

X16  hgRscordMsn 

X17  IX  FortTsl(rTiiSchc»n'oPrapLeueMMrit!C7x3senLewd  -  S 

X16  IX 

X19  191  ‘  Updato  tie  selected  properV  ist 

3020  192  strSa  -  -SELECT  (FPropert/Nsme.FK)  FROM  FIJND_SCH.PRCP  WhCRE 

3021  SCowseMsrbsr.FK  »  "  4 

3022  ForTns!lrrr6choon‘oFTopLBveMa)nl<SCairaeMjmber_PK.ValLM4  — 4' And 

3023  AMC6JT<--4For™!frrrSchoorroPropLewliXsiriSAMOS_PK.VMte4-4- 

3024  AndLewl«*4Forms!lrn6crioclToPropLeveMaint!CbosenLevej4"4' 

3025  UMCN  SELECT  [LProperVName.FK]  FROM  LOa,SCH.PHOP  WHERE  SCo«eNu»74)er_FK 

3026  -  "  4  FomvIirmSchoolToPropLewMainf  SCoir9eAMTber_PK.VaJue  4  —  4  * 

3027  And  AMOS_FK  -  "  4  FoniwIfriiiSchoon:oPTopLeveWflin« AMDS_PK.Vak^  4-4 

3028  AndUMlo  4  FarmsIlrirSchoofToPrapLeveMainliChoeenLevel  4  *- 

3029  tX  FortmlfrrriSchoon^oPTopLewOteineisleuolD.ftee^^ 

30X  194 

3X1  lXE)iLt*4jBveB_Cldc 

3032  IX  BilSub 

3033  197 

3034  1XErr_blnLsvel5^Cick: 

SOX  IX  MsgBox  Err.Descripion 

30X  200  Rbsutb  &iLblnLove6_Clck 

3X7  »1 

SOX  2Q2EndSub 

30X  2X 

3040  204  Private  Sub  bMevei6_CSck() 

3041  205  Cn  Error  GoTo  Err_bM.<MBl6  Gck 

3042  206 

3043  X7  Dim  hgFtecordMxn  As  Long 

3044  2X  DimstSa  AsSfring 

3045  200 

3046  210  tegRKordNum-MB.asrertftecord 

3047  211 

3048  212  DoCmd.Cksso 

3048  213 

3060  214  DoCmd.CpsnForm-frmSchoon'oPropLeweKteinr 

3061  215  DoOnd.GoToRscond  ecDataForm,  'IriT&choonbPropLeveMsmr.  acGoTo. 

3062  kvgRscorctisn 

3053  216  FcxmsilrrTSetxxsnbPrcpLsveWtenCChosenLewl  -  6 

3054  217 

3065  218  'Update  tie aetectodixopsdy  fst 

3066  219  itrSa  -  -SELECT  IFPropor1/ftemo_FKl  FROM  FUM3_SCH.PB0P  WHERE 

3067  SOxjrs8N«nbor_FK  -  -  4 

3068  FarTr«lfrirSchoorroPropLeve>AaintISCourseH4sitear_PK.Valus  4  —  4 '  And 

3050  AM0S_FK  -  "  4  FornelbrnScboofroPropLevoMsintlAMOS  PK-Vates  4  -  4  ' 

3060  AndLewl--4Fonra>frrTGchoolToPropLeveMaint!ChCMnLevel4’-4- 

3061  UMCN  SELECT  [LProperVName_FKJ  FROM  LO(i.SCH.PROP  WHCRE  SCour8oHterr*or_FK 

3062  '•-'4Forrm!frTnScbootToPropLevdMMn(SCourssMjrTbsr_PK.Vabs4  — 4- 

3063  AndAMCS.FK--4ForiisdInTfichocJroPropL8VBMainl!AMOS_P1CValue4-4 

3064  And  Level-  4  Fortm!frrT6choofroPropLevoWainl!C3iosenLBv«l  4  "- 

30X  220  FdfTT8irrRGchoor<)PropLevelvteint!bt.evelO.RcMSouce  -  stSGL 

3066  221 

3067  222E]sLt)iN.9vel6_Cfc}c 

3068  223  EatSU) 

3069  224 

X70  22SErrJiKsvel6_Cfelc 

X71  226  MsgBox  Err.Oescripion 

X72  227  Rsaune  EaLbteLevalS.Cfck 

3073  228 

3074  220&)dSii> 

3075  2X 

3076  231 

X77  232  Private  Sii)  cnfcCourseMjitierRndJWsrUpdateO 

X70  233 

3079  234  DimRAsRscordssI 

30M  2X  SstR-Ms.RecordssiCfans 

3X1  2X  RFindFirst  *lSCo»«eNunrber_PKJ  -  *  4  Chr(34)  4 

3062  Ms![crrbCousebk*rt)srFindI  4  ar(34} 

30X  237  Me.Bool9Tatrk  -  RBooterark 

3084  ZX  Ms'lctrbCourseNwrteerRndl  -  AU 

SOX  2X  Ms.SCoirMAksit>sr_PK.SslFoeus 

SOX  240 

3087  24lEndS(i> 

SOX  242 

3089  243RivatoSubFonn_CurrenlO 

3090  244  Dim  stSCL  aWnpuH.  sklnpuC  As  Sting 

3X1  24S  Dim  inLewl  As  Integer 

3092  246 

3083  247  'Update  tvs  Level  0  fst 

3004  248  intevel-O 

30X  249  stSa  -  -SELECT  (FPropsrtyrteme.FKI  FROM  FUHC_SCH.PBOP  Wf€FE 

30X  SCoufsatAiit»r_FK--4Me.SCourseNtaTter_PK.ValuB4-4-AndAM0S  FK- 

3X7  ■4Ms.AM0S_PK.Vakje4~4-AndLeval-'4«levBl4-4-UMaN 

SOX  SELECTlLPropertyNsme^FKI  FFOM  LOCi.SCH_PROP  WHERE  SCoi«eH4sttw_FK  -  -  4 

SOX  MB.SCaFsaM*rber_PK.Vakie4-4-AndAMOS_FK--4MaAMOS_PK.Valoe 

31X  4-4‘ArvlLev^.‘4inlev«4'‘ 

3101  250  Me.lsLevelO.Ra«v8<xrce  -  stSQL 

3ia  XI 

31X  252  ’  Updato  t«  Level  1  fst 

3104  253  intjnel.1 

31X  254  stfSa  -  -SELECT  IFPrtspartyH4«mo_Rq  FROM  FLHC.SCHLPROP  WHERE 

SIX  SCaiaaMsrt)or_FK--4Me,SCourseNunter_PK.Valuo4“4-AndAMOS_FK- 

3107  -  4Mb.AMCS_PK.  Value  4--4-AndLevel--4intfjael  4-4- UNCN 

31X  SELECT  |LProper1yAteme.n<]  FROM  LCXi,SCH_PROP  WHERE  SCourseNunter  FK  -  “  4 

31X  Ms  SCourseNjrTfcer.PK.  Value  4  “  4  *  And  AMOS  FK  -  “  4  Mo.  AMOS.PK. Value 

3110  4-4- AndLwd-‘4teLevel4- 

3111  255  MeJs&.evel1.Ftevv6<xtce-s»SQL 

3112  2S6 

3113  257  ‘  Updato  tw  Level  2  Ist 

3114  258  inLevel-Z 

3115  259  stSa- 'SELECT  [FProportyHteme_FKl  FROM  FUC.SCHLPROP  WHERE 

3116  SCoijrseNjrnbef_FK-“4Me.SCcMrseAkirber„PK.VaLo4-4-AndAMOS  FK- 

3117  '•4MB.AM0S_PK.Value4-4-AndLevel--4inteveI4-4'UM0N 

3118  SELECT  ILPropoflyNeno.FK)  FROM  LOG_SCK.PH0P  WHERE  SCarseNuetter  FK  »  “  4 

3118  Mo.SCa«oMjmber_PK.Value4-4’ And  AMOS  FK  - " 4  Me JOUOS_PK.Value 


78 


3120  4-&’AndLBwf-'&in1l»wli** 

3121  2G0  MB.btLMi2.niMeouro«  >  stSGL 

3122  261 

3123  262  lntLwal=i3 

3124  ■  2S3  »»SOL  .  •SELECT  fFProp«1yNaf7»_FK)  FROM  FUND_SCH_PnOP  WHERE 

3125  SCour»Nunr*)«r_FK  •  -  4  MB.SCows»N«i**r_PK. Value  4  “  4  *  And  AMOS_FK  a 

3126  -4MBAM0S_PK.VaJue4“4-AndlevBla-4injUvel4~4*UM0N 

3127  SELECTlLPropertyNwna.FK]  RWM  LCXLSCH.PROP  WHERE  SCoutjeNumber.FK  a  -  4 
312B  Ma.SCour»eNutt*«r_PK.Vakie  4  -  4  *  And  AMOS.FK  -  “  4  MaAMOS.PK. Value 

3129  4-4'AndLe«la*4in(LBwlA“ 

31X  264  Ma.b4Ml3.RoM6ource  a  a»SQL 

3131  265 

3132  266  JnlLMla4 

3133  267  srSQL  -  ’SELECT  [FPropartyNaw.FK]  FTOM  FU6D_SCK.PR0P  WHERE 

3134  SCourseNirri>er_FK.'*4MB.SCotaaeNurrte_PK.Value4~4'AndAM06_FKa 

3135  “4MeJVMOS_PK.Vakje4-4*AndLevela*4lnttjBve(4“4‘UNION 

3136  SELECTILPropertyNama.FK)  FROM  LOQ_SCH_PROP  WHERE  SC«xseHkanber_FK  -  "  4 

3137  bto,SCoofseN«rt)ar_PK.Vdue  4  -  4  ’  And  AMOS_FK  a  -  4  MeJ^MOS.PK. Value 

3133  4 '**4  '  And  Lewla  •4inajMiA  •' 

3139  268  Ma.btLeMU.RoMSource  a  s^SOL 

3140  269 

3141  270  inBjfwIaS 

3142  271  atSQL  a  -SELECT  (FPropertyNama.FK)  FROM  FUND_SCH.PROP  WHERE 

3143  SC<xrMNi>T«Mr.FK  -  ”  4  Me.  SCotfaeNwter.PK. Value  4  "  4 '  And  AMOS.FK  a 

3144  -4MeAM0S_PICVaJua4~4 ‘And  levela*4lntLmel4~4- UNION 

3145  SELECT  [LPropertyName.FKJ  FROM  LOG_SCH.PftOP  WHERE  SCourseNunnber.FK  -  "  4 

3146  bte.SCourieNuntMr„PK.Value  4  *’*  4  ‘  And  AM06_FK  a  ^  4  Ma.AMOS.PK. Value 

3147  4~4*Andljew(-'4intLrat4" 

3148  272  Me.btIjeMiS.Row5ourcea3tSQL 

3149  273 

3150  274  InLml  =  6 

3151  Z7S  stSOL  a  *SElf  CT  [FPropertyName.FKI  FROM  FUND_SCK.PROP  WHERE 

3152  SCour3eNunnber_FK  »  "  4  Me.SCaiseNunnber_PK.Value  4  -  4  '  And  AM0SJT<  a 

3153  ••4MeAM0S_PK.Value4-4 -And  Lewi- ’4inltjewl4“4' UNION 

3154  SELECTILPropertyName^FKJ  FROM  LOCL.SCH_PROP  WHERE  SCour»eNumber_FK  •  ~  4 

3155  Me  SCoureeNumber.PK. Value  4  4  ‘  And  AMOS.FK  -  "  4  Me  AMOS.PK. Value 

3156  4*'4’AndLeMNa*4inllewl4" 

3157  276  Me.btLawK.RowScuce  a  atrSQL 

31SB  277 

3159  278 

3160  279  End  sub 

3161 

3162  Fornt  trmScboonoPropLawiMnt 

3163  Code 

3164  1  Abibule  VB_Name  a  *FdnT\_frTnScboanbPropLeveMainr 

3165  2  Atkibuts  VB.Creatabb  -  True 

3166  3  AfrIbutiVB.FredederedId.True 

3167  4  AtkIbuieVB.EifiOMdaFabe 

3168  5  Optlcn  Corrpare  Dotabaae 

3169  6  Option  Ex^dt 

3170  7 

3171  8  Private  Sub  bbiCtoee.akfcO 

3172  9  On  Error  GoTo  Err_bbaoee_ak:k 

3173  10 

3174  11  E>mbgRecordNi>nAeLot>g 

3175  12 

3176  13  hgRecordNumaMe.CurrenlHwxrd 

3177  14 

3178  15  OoCnvJ.Ciose 

3179  16 

3180  17  DoCmd.OpenForm  frmSchQon'oPropertyMelnr 

3181  18  DoCmd.GoToRecord  acDataForm  TrmSchoonbPropenyMainr.  acGbTo, 

3162  bgRecordNun 

3163  19 

3184  20  &4U>*>Cto»e_CllcK: 

3185  21  BdtSri) 

3186  22 

3187  23  Err.bMloee.CIclc 

3188  24  MigBoxErr.DeKrlpbon 

31tB  25  Iteaume  &dCI*iCiMe_CIck 

31X  26 

3191  27  End  Siii 

3192  28 

3133  29  Private  Sub  bhOeMi.CicfcO 

3194  ao  On  Error  GOTO  ErrjjnOeleb.CIck 

3195  31 

3196  32 

3197  33  OoCmd  OoMenuItHn  acFormBar.  acEdlMenu.  8. .  acMenuVerTO 

3196  34  OoOnd.OoMenuItsfn  acFormBor.  acEdiMenu.  6. .  acMenuVerTO 

3199  35 

3200  36  EiSLbktOciele.CfcIc 

3201  37  ExUStA) 

itxt>  38 

3203  39  ErrJirOelete.CfcIc 

3204  40  MtgBox  Err.DeicripBon 

3205  41  Ftesume  ExiLMiOeMe.ack 

3206  42 

3207  43  End  SU) 

3206  44 

3209  45  Private  Sub  QxxaenLewlJLnarUpdeleO 

3210  46 

3211  47  Dim  stSQL  At  Sking 

3212  46 

3213  49  ’U^xlateihepolKTtialprofiert/lai 

3214  SO  atSQL  a -SELECT  OIST1NCTRCW  (cry UNonAVProper1y].[FPropertyNBme_Ptq 

3215  FRCM  (yyUnianAV>roper1y  LEFT  JOIN  (yyUNonProperlyByLewt  ON 

3216  (qryUhionAIProperty],[FPropertyName_Piq  a 

3217  (<yyUWonProtwVByLawlJ.[FProperVNwne.FKI  WHERE 

3218  (IqryUnionPropaity6yLewl].[FProperiyNune_Rq  la  Nul):' 

3219  51  MB.blLMnJbuted.nawG<xece  a  akSQL 
fwon  S2  *  cw  ibirbl  properly  lat 

3221  S3  erSQL  a  'SELECT  [FPropertyNbnw.FKI  FROM  FUND_SCK.PHOP  WHERE 

3222  SCouraeNunOv  FKa-4Me.SCourteNuiiibcr  PICValue4~'A'AndAM0S  FKa 

32Z3  ‘‘4MeAM06_PK.Value4~4*AndLewla*4Me.CboaanLewl.Value4 

3224  4  ■  UMON  SELECT  (LPropertyName^FK]  FRCM  LOG_SC^PHOP  WHERE 

3225  SCouraaN(iti>er_FK.-4MB.SC(x4aeMenber_PK.Value4-4'AndAM0S_FKa 

3226  ‘’4MaAM06_PKVdua4~4*AndLewala‘4Me.CboaanLewLVNuc4 

3227 

3228  54  Ma.btLewlO.RowSovce-a«rSQL 


3230 

3231 

3232 


3237 

vyrxi 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 


56  EndScA* 

57 

56  Private  Sub  «rt>CouraeN«rt)erRrK»J^nBrtJ^^^ 

59 

60  DimRAaRecordaet 

61  Set  R  -  Me.RecordselCtone 

62  R-FindHrat  -(SCouraeNumber.PK]  -  *  4  av(34)  4 
MellcrrtCouaeNunterFeid]  4  Ov(34} 

63  Me.Bookrrarlc  a  RBookmaric 

64  MeitcrrbCoijrMNMiAierFind]  a  NiA 

65  Me.SCour3eNuTA)er_pK.SetF0cU3 

66 

67  EndSub 

68 

69  Private  Sub  Foim_CvTant() 

70 

71  Otm  tkSQL  Aa  S»ing 

72 

73  '  Vw  poivtfol  property  1st 

74  tkSQL  a  •SELECT  DIST1NCTR0W  l<^LWcnAIProperVJ.(FProper1yHbroe_PK] 


3250 

3251 

3253 

3254 

3255 

3256 

3257 

3258 


3261 

3262 

3263 

3264 

3265 

3266 

3267 


3270 

3271 

3272 

3273 

3274 
32TO 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 


3290 

3291 

3292 

3293 

3294 


3297 


3301 

3302 

3303 

3304 

3305 

3306 

3307 


3311 

3312 

3313 

3314 

3315 
S16 
3317 

3316 


3321 


TtTn 

3331 


3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 


3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 


FROM  qryUhlooA»>roper1y  LEFT  JOIN  (^yUhioftPropertyeylawl  ON 
(qrylWonAIPropertyllFProperlyName.PKl  a 
(qryUnionPrope^EVL«wll,[FPre)per1yN«me_FK]  WHERE 
((^LWonPropertyByLavel].(FProper1yNama_F)q  la  Nut);* 

75  Me.bLtwlUhuaed.Row$ouree  -  atrSQL 

76  '  Vie  aebcted  orooertv  lat 

77  atSQL  .  •SELECT  [R>roperVName_FK]  FROM  FLIND_SCH_PROP  WHERE 
SCouraeNun*ef_FK  «  -  4  Me.SCouraeKUrber.PK.  Value  4  “  4  *  And  AMOS.FK  = 
^  4  Me.AM0S_PK Value  4  -  4  '  And  Uvel  a  '  4  Me.  ClioaenLvwL Value  4 

4  •  UMON  SELECT  [LPropertyName_FK]  FRCM  LOG.SCH.PROP  WHERE 
SCouraeNumber_FX  a  "  4  Me.  SCouraeMarber.PK.  Value  4  “  4  *  And  AMOS.FK  a 
"  4  Me  AMOS.PK. Value  4 4  *  And  Uvet  a  -  4  Me.OioaanLewLValue  4 

78  Me.blLeMlO.Roia6ource.  atSQL 

79 

60  EndSub 

61 
82 

83  Private  SdxleltArrow.CSckO 

84  Olfn  tmn  Aa  Fonr^  cfl  Aa  Conkol 

85  Dim  wrilm  Aa  VarianL  Intt  Aa  Integer 
66  DimaVSQLAaSVIng 

87 

68  ‘Enateea  Vie  current  record  baowts  the  SCHOOL  tabb 

89  OoC>rd.OoMen«ibm  acFormBar.  acRecordaMenu.  acSovoRecord. . 

90 

91  ‘INa  coda  enters  Vie  oabctedTtfgelMOS’a  into  Via  SCH_TGTJ40S 

92  Satfrma  FormalfrmSchoon'oPropLewMaint 

93  Set  cl  a  (rmlbtLMlUbuaed 

94  For  Each  wrIVn  In  ctLItemsSetecled 

95  ForlnHaOToc&CokxiinCount- 1 

96 

97  ‘  This  pub  tie  value  found  In  Vie  lat  box  into  a  bad  box 
ntaHng  It  readable  by  Vw  query 

98  FormsIfrmSchoonbPropLawMaintTargoWalue. Value  - 
clColumn(int),  varlVn) 

99 

1X  '  Oiaabtea  tie  acton  query  conlimnalion  message 

101  AppIcatonSatOpBon  'Ccinrirm  Acton  Queries*.  Fabe 

102  DoCmd.Se(Warnings  (False) 

103 

104  '  Enters  tie  vdue  Inb  tie  SCH.TST.MOS  tabto 

105  Dodnd  OpenOiery  'lyytJpdateFUNO.SCHLPnOP* 

106  DoCmdOpenQuary  'qryt^teLOG.SCH-PRCP’ 

107 

106  '  Enabies  Vie  acton  query  conlinTialion  message 

109  AppIcatoaSetOpbon  •CorVIrm  Acton  Quenes*.  True 

110  DoCnid.SeiWanilng3  (True) 

111 

112  Neidina 

113  NaadwrlVn 

114 

115  ‘Msdate  tie  potenial  property  1st 

116  tVSQL  a  •SELECT  OIS71NCTROW  (qryUNonAIProperlyl.IFProperiyName.PK; 
FROM  (yyl>ilonA*>roperty  LEFT  JON  (vyltilonProperty^Lavel  ON 
[qrytMon/UProperty].(FPropertyName_F^  a 
[qryUnlonPropeny^Leveq.|FProper1yName_FK)  WHERE 

((7yUn»nProper1yByLewiI.(FProp«lyNan»-PK]  >»  MJ);* 

1 17  Me.btjewlUhuted.RowSource  a  strSQL 

118  '  Update  Vie  selected  properly  ist 

1 19  atSQL  a  ‘SELECT  (FProperVName.FK)  FROM  FLlHO_SCH(.PflOP  WHERE 
SCourseNumber^FK  -  "  4  Me. SCoieeeMjirber.PK Value  4  ~  4  ’  And  AMOS  FK  a 

-  4  MeAMOS.PICValua  4  •' 4  *  And  Level  a  •  4  Me.CtiosanLjewl.VNue  4 
4  •  UMON  SELECT  [LJ>roper1yName_FKl  FROM  LOG_SCH,PflOP  WHERE 
SCourseNumber.FK  -  -  4  Me.  SCouraeMerber.PK. Value  4  -  4  •  And  AMDS_FK  a 
“  4  Me>MOS_PK. Value  4  -  4  *  And  Level  a  *  4  Me.CtiosenLawl.VNue  4 

120  Ma.bfljewlO.  RowSovoe  a  sVSOL 

121 

122  End  Sub 

123 

124  Private  Sub  RghtArrow.CIcfcO 

125  DlmfnnAsFarin.  clAs  Contol 

126  Dim  van  Vn  As  VarlanL  Ina  As  Integer 

127  Dim  stSOL  As  Sting 

128 

129  -  This  code  Deteb  tie  setected  Target  MOS-s  and  ib  associated 

envies  (rom  Vw  SCHtTGTjvlOS  tefate 

IX  Set  frm  a  FormalfrmSctwor'oPropLaveMbnt 

131  Setclafnntte>L««IO 

132  ForEachvarlVntnc1.l1enBSetected 
IX  ForinOaOTocB.CoksnnCounl- 1 

134 

135  ‘  Dlls  pub  tie  vokta  found  In  Vie  1st  box  Into  a  teod  box 
making  n  readabte  by  Vie  query 

IX  FormsIlrmSchoonbPropLmiAMntTorgeMalue.Value  a 

el.Colunr)(lnfl,  vorlVn) 

137 

1 X  '  Disables  tie  acton  query  confirmeton  message 

IX  Applcaiion.SelOplion  'Confirm  Acton  Queries',  Fabe 

140  DoCmdSetWarnlngs  (Fabe) 

141 

142  ‘  Detetos  tie  record  associated  wl  Vi  tie  spec  Hied  value  from 
Vte  FUND  or  LOO  SCHLPROP  bfate 

143  DoCnxJ.OperOJory  'cvyDeteteFUND_SCH_PflOP* 

144  DoCmdOpenQuery  ‘qryOeto*eLOG_SCH(_PROP‘ 

145 

146  '  Enables  Vie  acton  qu«y  confirmaton  message 

147  AppIcotorLSetOpton  ■Confirm  Acton  Queries*.  True 

148  DoCmdSetWamings  (True) 

149 

IX  Naodbia 

151  Nud  varttn 

152 

153  '  i^aiato  tia  potently  properly  let 

1 54  sVSOL  a  •SELECT  DISTINCTROW  [qryUriioriAIPropertyI.[FPropertyNatne..PKl 
FROM  qrylMonAV>roparty  LEFT  JOI N  iryUtiionPropartyBy  Lawl  ON 
(<fyUnionAlPTOparty].{FPropertyNune  ^  a 
[qryUnkviProperty8yLevai].[FPropar1yNanse.,FK]  WHERE 
{[<yyUtilonPropef1yByLm/elI.(FProperiyNBfnB_FKI  Is  MJ);' 

155  Me.b<LevalUnused.RowSotfce-sVSQL 
IX  '  Uxfale  Vie  setected  Drooertv  ist 

157  sVSQL  a  'SELECT  IFT^ariyName^FK]  FROM  FUND.SCHtPROP  WHERE 
SCourseMjmber.FK  .  -  4  Mo.  SCo»r3eMrt>or_PK. Value  4  *“  4  •  And  AMOS.FK  . 

'•  4  Me>MOG_PK.  Value  4  -  4 '  And  Level .  '  4  Me.  OtoaenLeval Value  4 
4  ■  UMON  SELECT  lLProportyNarr»_FKJ  FROM  ljD<3_SCHtPROP  WHERE 
SCouraeNunrtiof_FK  -  “  4  Mo.SCou-wM*rber_PK. Value  4  “  4  ‘  And  AM0S_FK  - 

-  4  MaJLMQ6_PK.Value  4  “•  4  *  And  level  a  ■  4  Me.Ctx>aen|jeveLVetee  4 


3369  IX  Ma.blLevelO.RowSourcea  tVSQL 

3370  159 

3371  IXEndSub 

3372 

3373  Form:  trmScrubMarlne 

3374  Code 

3375  1  AblbuteVB_Nanw«*Form_(rTn5crubMarlne' 

3376  2  Abibute  VB.Creotable  a  THue 

3377  3  AbibuleVB.,PredecteredldaTrue 

3378  4  AblbuteVB_Bt>oeedaFteae 

3379  5  OpVon  Corrpere  Dsbbese 


79 


3381 


OjjboRExpfcit 


49  Dim  sfrSQL  As  String 


3382  8  Private  Sub  CSoM.CICkO 

3383  9  On  Error  GoTo  Etr.Oosa.Cfck 

3384  10 

3385  11  Dim  sOocNama  As  String 

3386  12  DimsLlnkCriterlaAsSfring 

3387  13 

3388  14  'doM  currant  form 

3389  15  DoCmd.Cbse 

3390  16 

3391  17  '  Opan  spacKiad  form 

3392  18  sC^Noma  e  trmPraprocassing&EjocutonSwIIcbboard' 

3393  19  OoCmd.OpanForm  iSXjcNama, , ,  sttinkCrl tafia 

3394  20 


3395  21  E)dLCtosa_aclc 

3396  22  ExitSub 

3397  23 

3398  24  Err_CJoaa_aick: 

3399  25  MsgBox  Err.DascripVon 

3400  26  Rasurrv  ExiLOosa  CIctc 

3401  27 

3402  28  End  Sub 

3403  29 

3404  30  Private  Sub  cntrPafRndJWtertJpdateO 

3405  31 

3406  32  OimRAsRacordsat 

3407  33  SatR-MaRacordsatOona 

3408  34  RnndRfst  IPEF] .  '  &  Chr(34)  &  Ma!(crnbPa<Rndl  &  Cte-(34) 

3409  35  IVla.BootoiwV  ■  RBoolortterk 

3410  36  MailcmbPafPind] .  Nul 

3411  37  Ma.SS^^_PK.Satfoeus 

3412  38 

3413  39  End  SUb 

3414  40 

3415  41  Private  Sub  cfPbSSNRnetJWterlJixJatet) 

3416  42 

3417  43  DimRAsRacordsat 

3418  44  SatR«Ma.Racordsa(C>ona 

3419  45  R  RndRf  si  ISSi^PK)  -  “  4  C»ir(34)  &  MalfcnnbSSNRnd]  4  Chr(34) 

3420  46  Ma.BoolonsrioRBooltnterk 

3421  47  MalfcrrbSSNRnd] .  Nul 

3422  48  Ma.Ck)aa.Satfocus 

3423  49 

3424  50  Enl  Sub 

3425  SI 

3425  52  Private  Sub  Dalate  dct^) 

3427  53  On  Error  QoTo  Efr_Dala»a_Clck 

3428  54 

3429  SS 

3430  56  DoCmd.OoManultam  acFdrmBar.  acEdlManu,  8. .  acManuVerTD 

3431  57  DoCmd.OoManultem  acFormBw.  acEdlMaru,  6. .  aditenuVarTO 

3432  56 

3433  59  BtLOaWa.Ctck: 

3434  60  ExtlSUr 

3435  61 

3436  62  ErT_Datate_aick: 

3437  83  htagBoxErT.Dascriptton 

3438  64  Rasuma  ErbLOaiati.Ciek 

3440  66  EndSub 

3441  67 

3442  68  Private  Sob  FofTn_Currao1() 

3443  69  Dim  sISQL  As  Sbing 

3444  70 

3445  71  •  Update  Ite  PEF  Ust 

3446  72  SkSOU-*SElECTDISTlNCTOCWIM4RlNE]-tPEF]FROMMARINELEFTJaNPEF 

3447  ON  {MAWNEl  pEF]  .  [PEF]-IPEF_PKIWHEnE  (IPEFl.pEF.PKl  Is  NiJ)ORDER  BY 

3448  73  Ma.cmbPafRndFkwSourcaxstrSQL 

3449  74 

3450  75  End  Sub 

3451 

3452  Pornc  ImfipaciatAsslonmant 

3453  Coda 

3454  1  A»ibtJteVB_Nan»-*Foni>_fnnSpadteAsilgnnw)r 

3455  2  Attribute  VB_Craatobla>Trua 

3456  3  At»ibutoV8_Pradadteadld-Trua 

3457  4  AttlbuteVB.&fMsad-Fatea 

3458  5  Optkm  Compara  Datebaaa 

3459  6  OptonExpidt 

3460  7 

3461  8  Private  Sub  ctTi)CteasNijrrtarJUterUpdBte() 

3462  9 

3463  10  DimakConvartAsSklrx) 

3464  11 

3465  12  Ma.txtRaporOato.Ma.cmbClasaNurnbar.Colunvi(2) 

3466  13  Ma.bdMCC .  Ma.cTT<>OBS«Nurtt)ar.Colurrn(4) 

3467  14 

3468  15  'ComartthatiscaiyaartoateiDdgilnurrbartorRDSRIa 

3469  16  akQ}<ivart-C»»(Nte.cnnbaaasNun<)ar.Colmir(3)) 

3470  17  srCorivarta  nghtCsbConvart  2) 

3471  18  MeMFY « Cin^sttConvart) 

3472  19 

3473  20  Ma.bdAssi7vnan(Typa « *S‘ 

3474  21 

3475  22  ErvOStA) 

3476  23 

3477  24  Private  Sub  crrOdassNumbar  Enter() 

3478  25 

3479  26  DimskSQLAsSbino 

3480  27 

3481  26  '  Ibia  guaty  finds  Vw  class  ntsites,  raport  dates  and 

3482  comaning  dates  associated  vrith  tha  choaen  scboo) 

3483  29  akSQL. -SELECT BNA.EXTRACT.Claa«4urT4)ar_PK 

3484  BW^EXTOACT.CJassConvOato.  BNA_EXTRACT.RapoftOate, 

3485  BN^.EXTRACT.fiiealYaar_PK.  BNA.EX7RACT.MCC  FROM  BNA_EXTRACT  INNER  JON 

3486  SCH.TCT.MJS  ON  {BNiV^E)CTRACT.CoursaNim<»ar.PK  . 

3487  SCKTCTJvlOS.TCotsaaNirt)ar_FK)  AND  <BN4^EXTRACTTargaWOS  PK  . 

3488  SCH_TCT.MOS.TargatMOS_FK)  WfCRE  BNA^EXTRACTCoursaNurrljar  PK  - 

3489  ForrmltTmSpecialAasignmangctrtCoorsaNur^  AND  SCH_TCT_MOS.AMOS_FK  > 

3490  FcrmsItrmSpaciatAssignnwitfMAMOS:* 

3491  30  Ma.criiraassNurrbar.RowSourcaasbSQL 

3492  31 

3493  32  End  Sub 

3494  33 

3495  34  Private  Sub  cfrbCoursaNurrbar_AfkrUpdate() 

3496  35 

3497  36  MabdAMDS  >  Ma!ciTbCouraaNurrbar.Co)urm<l) 

3496  37 

3499  38  EndStD 

3500  39 

3501  40  Private  Sub  crrbSSNJWterUpdatoO 

3502  41 

3503  42  Ma.tidSOI  -  Ma<cfTbSSN.Colimi(1) 

3504  43  Ma.txtQradDate.Malc>rbSSN.Cokjnn(2) 

3505  44 

3506  45  End  Sib 


3508  47  Private  Sub  cnbSSN.EntarQ 

3509  48 


3510 

3511  50 

3512  51  sYSCL  -  -SELECT  DfSTlNCTROW  MAR1NE.SSN_PK.  MHRttC.SO(. 

3513  MkRitC-OrtelOate  FROM  KMRINE  LEFT  JOIN  ASSIGTMENTON  MARITE.SSN  PK  ^ 

3514  ASSIGMilEMT.SSN_FK  WHERE  (({ASSIGNMENT.SSN_FK)  Is  MI)):' 

3515  52  M».crrbSSN.RoaSourca.sttSQL 

3516  S3 

3517  54  End  Sub 

3518  55 

3519  56  Private  Sub  cnibSSNRndJtnarLbdaiB{) 

3520  57 

3521  58  Dim  R  As  Racordsat 

3522  59  Sat  R  -  tteRacordsatOona 

3523  60  RRndRrst-[SSrLPK]-’&Cbr(34)&Ma![crrbSSNRnd]&OT(34) 

3524  61  Ma.Bookmuk-RBookmark 

3525  62  MaftcKbSShrindl  -  Nul 

3526  63  Ma.Cbaa.SatFocus 

3527  64 

3528  65  EndSub 


3530 

3531 

3532 

3534 


3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 


3554 

3555 

3556 

3557 

3558 


3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 


3589 

3590 

3591 

3592 
y:ty> 
3594 


67  Private  Sub  Oaiate.CIckO 

68  On  Error  Goto  Err.Dalate.Cick 
89 

70 

71  DoCmd.DoManuilam  acFbfTrBor.  acEdUManu.  8. .  acMaouVarTO 

72  DoCrixj.  DoManullam  scFormBar,  acEdilMenu.  6. .  acManUVerTD 

73 

74  EdLMeto.ClcIc 

75  ErltSub 

76 

77  Err_Oatela_Clck: 

78  MsgBoxErr.Dascriplon 

79  Rasuma  ExfLOaleto^CIck 

80 

81  EndSub 

82 

83  Private  Sub  Oosa.CicO 

84  On  Error  QoTo  Err.Oosa.Cick 

85 

86  Dim  stDocNsma  As  Sbing 

87  DImsIUnkCrIteriaAsSbing 

88 

89  ‘  Ciosa  currant  (orm 

90  DoCmd.Ctosa 

91 

92  ‘  Opan  spaciflad  form 

93  sK>ocNama--fnnPraprocasaing&&teculonSw(k:riboard- 

94  OoCmd.OpanForm  stOocNama, . .  sJUnkCrItoria 

95 

96  E)dLCIosa_Clck; 

97  EillSub 
96 

99  Err.Cbsa.ddc 

100  M^jBox  Err.Daacriplon 

101  Rasuma  ExiLCkx>a_Cfck 

102 

103  End  Sub 

104 

105  Private  Sub  Form_Cufrant() 

106 

107  '  Prawants  usar  from  accldanfaly  maMno  special  ossignmants  to 

marinas  assigned  notma^ 

106  II  IshUKMB.cnbSSNVoloa)  .  Faba  Then 

1 09  MalcmbSSN  Enabted  »  Ftesa 

110  Mi!ciTbCoursaf4jnbar.Enabted  -  Ftesa 

111  MalctrbaassMjrrbar.Enabtod  .  Faiaa 

112 

1 13  '  Alows  »M  taar  to  enter  >«luas  for  toe  fundamantal  aquafon 

114  Elsa 

115  Ma!ctrbSSN.EnBbted  »  Trua 

1 16  MalcirbCoursaMxTbar.Enabted  m  True 

1 17  MafcrrbOassNisrbar.Enabiad  .  True 

118 

119  End  If 

120 

121  End  Sub 

122 

123  Private  Sub  FdrRi_Opan(  Cancel  As  Integer) 

124 

125 

126  DoCmd-GoToRacord  acDateFonn.  -frmSpedslAsslgrmanr.  teiNavvftec 

127 

128 

129  End  Sub 


3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 


36Cf7 

3606 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 
3616 

3619 

3620 

3621 

3622 

3623 

3624 


3627 


3630 

3631 

3632 


3635 

3636 

3637 

3638 

3639 


Form  trmSpadalAsdgnmanOfUrieaaignodMartna 
Coda 

1  AOribute  VB^Ntma  m  -FonTi.friT6pacisiAs3ignmBnlOfUnasaigftedMarina- 

2  ABribuii  VB.Craat^  .  True 

3  Ateibute  VB.PradaciwadId  -  True 

4  Attibute  VB.Eiposad  .  Faiaa 

5  Opion  Compare  Datebasa 

6  Opion  Bflcll 

7 

8  Private  Sub  crrbClassNLimbar_ArtertJpdate() 

9 

10  Dim  ibConvart  As  SUng 

11  Dim  ibSSN  As  Sling 

12  Dim  RAs  Rscordset 

13 

14  Ma.bdRaporiOate  >  Ma.cnbCtassNurTbar.Coiurm(2) 

15  Ma.tMCC  -  Ma.ciibCtessNurTbar.CoasTto(4) 

16 

17  ‘  Convert  ivaflacat  year  to  a  two  dgit  number  for  RDSFiia 

18  BbConMrt.CSt(Ma.cnbaBssNumbar.Column(3)} 

19  s»Convirt-RHjhi(s»Convart2> 

20  Mi.tidFY  .  anl(sbCamMrt) 

21 

22  Ma.tiMssignmar«nypa  ■>  *S‘ 

23 

24  'Keep  back  Of  toe  curantSSN 

25  sbSSN«Ma.crrbSSN 

26 

27  MB.MkM06aMa!cnnbC<XssaNurrbar.Column{1) 

28 

29  '  UpdaSaa  to#  currant  form  and  aubform 

30  MB.Raquery 

31  Ma.Rapaini 

32 

33  Moves  toe  record  back  to  »ta  currant  SSN 

34  SetRBMa.RacordaatCtona 

35  RRndfirit  -{SSN_FKJ  -  *  &  Cbr(34)  &  sbSSN  &  Chr(34) 

36  Ma.Bookmaika  RBookmark 

37 

38  EndSub 

39 

40  Private  Sub  cnbOassMjmber.EnterO 

41 

42  DimsbSQLAsSbing 

43 


80 


3640  44  'IhisqiMryftndsOwclBurManNn.  report  dBtu  and  clou 

3641  corMningdat»sassodatoOw9iBiachoMn  school 

3642  45  8liSCL--SB^CT8NA_EXTRACT.C1assN«T*)ar_PK. 

3643  BN^.EXTRACT.ClaMConvOatB,  BN^.EXmACn-.R#portDa»B. 

3644  8NA^EX7RACT.HscalYaar_P(C.  BNA^EXTTWCT.MCC  FROM  BNA_EXTOACT  IWJER  JOIN 

3645  SCK.TQT_M0S  on  {8hUV_E5nRACT.Coof8aNurnbar_PK  - 

3646  SCH.TCT_MOS.7Co»jfsaNurrtBar_FK)  AND  {BNA_EXTRACT.TaroBWOS_PK  - 

3647  SCH_TGT_MOS.TMg«MOS_FK)  WhCRE  BNA_EXmACT.Coof3aNurf*af_PK  . 

3648  FonralfrmSpadslMsigrvTwntonjnassigrMcMsritwIcmbCoursaNurnbor  AND 

3649  SCK.TCT_MC6.AM0S_FK  - 

3650  46  Ma.cfnbClassNuT1te^nolM€ourc«-ttl^ 

3651  47 

3652  48  EndSub 
49 

3654  SO  Privais  Sub  cmbCounoNuntMr_An»rUpdate(} 

36^  51 

3656  52  Dim  strSSN  As  Strips 

3657  53  DimBAsFtocordsat 

3659  SS  strSSN.Ma.cmbSSN 

3660  56 

3661  57  '  Kosp  track  ct  Sw  currant  SSN 

3662  58  strSSN-Ma.cmbSSN 

3664  60  Ma.«dAM06  -  MolcmbCoursaNisnbar.Colurm(l) 

36^  61 

3666  62  '  UpdstMVw  currant  form  and  «i>fonn 

3667  63  Ma.Haquaiy 

3668  64  Ma.Rapalrit 

3669  65 

3670  66  ‘  kfovasVrerocord  back  to  current  SSN 

3671  67  SatR-Ma-RacordsatCtono 

3672  68  RRndFirst  TSSN.FK)  -  *  &  Ctir(34)  &  sWSN  &  Chr(34) 

3673  69  Ma.Bootonart(- RBookmadc 

3674  70 

3675  71  EndSub 

3676  72 

3677  73  PrtvatoSubcmbSSNJWlanJpdatoO 

3678  74 

3679  75  Ma.b4SOI-M8!cnnbSSN.Cokm<1) 

3680  76  MatriOradDato  -  Ma!cntoSSN.Cok>nn(2) 

3681  77 

3682  78  EndSub 

3683  79 

3684  80  Private  Sub  cntoSSN.Entoit) 

3685  81 

3686  82  Dim  strSQL  As  String 

3687  83 

3688  84  attSQL- •SELECT  DlS'nNCTFCWMAPINESSN.PK.MAPiNE.Sa. 

3689  MAnNE.GfsdDatoFFOMMAHNEl£FrjaNASSlC5NNCNTONMARiNE.SSN_PK- 

3690  ASSIGN»«Nr.SSN_FK  WHEflE  («ASSIGf««MT.SSN_FK)  Is  MJ));* 

3691  65  Ma.cmb5SN.R»vSouica.stiSQL 

3682  86 

3693  87  EndSub 

3694  88 

3695  89  Private  Sub  errbSSNRnd>ftorUpdato() 

3697  91  OknRAsftocordsal 

3606  92  SatR-hteRKordSatCtoiw 

3699  93  RRndRrst  tSSN^FK)  -  *  &  Cbrt34)  &  MarfcmbSSM^  &  Chr{34) 

3700  94  Ma.BootoTauk  -  RBoohmafk 

3701  96  Ma([cmbSSNFlnd)  -  MJ 

3702  96  Ma.Ctosa.SaFocus 

3703  97 

3704  98  EndSub 

3705  99 

3706  100  Private  Sub  Datote_Clck<) 

3707  101  On  Error  QoTo  Err.Datete.Cick 

3708  102 

3709  103 

3710  104  OoCmd.DoManultam  acFormBar,  acEdltManj,  8, ,  acMenuVarTO 

3711  105  OoCmlDoManuttem  acFormBar,  acEdItManu.  6. .  acManuVarTO 

3712  106 

3713  l07Ej4t_Datoto_<ack: 

3714  108  EidtStto 

3715  109 

3716  110Err_Dalate_C8ck; 

3717  111  MsgBoxErr.DascrtoOon 

3718  112  Rasim  BSLOalate.CIck 

3719  113 

3720  ll4EndSub 

3721  115 

3722  1 16  Private  Sub  Ctoss.dckO 

3723  117  On  Error  GoToErr_Ctosa_Cle* 

3724  118 

3725  119  'Ciosa  currant  form 

3726  120  OoOmdCtosa 

3727  121 

3728  122ExLCtoaa_Cick: 

3729  123  Ext  Sub 

3730  124 

3731  125  Err.Ctoaa.Clck: 

3732  126  MsgBox  Err.DascripDon 

3733  127  Rasm  EXLCtosa.Cick 

3734  128 

3735  129  End  Sub 

3736  130 

3737  131  Private  Sub  FbtTn_CurranlO 

3738  132 

3739  133  Ma!embSSN.Enibted«Trua 

3740  134  MelcmbCoursaNuntnr.Eflabted-Trua 

3741  135  MatcmbOassNuritoar.EiteUad-Trua 

3742  136 

3743  137 

3744  138 

3745  139EndSub 

3746  140 

3747  141  Priv^  Sub  FonTuOpan(Cancal  As  Integer) 

3748  142 

3749  143 

3750  144  DoCmd.QoToRacord  acDatoFbrm, 

3751  trmSpacialAssiTrmsnOlJhassJgnadMarina.  acNawRsc 

3752  145 

3753  146 

3754  147EndSub 

3755 

3756  Forme  frmtJhassiTiaAtarinss 

3757  Coda 

3758  1  ABr1buteVB_Nvna-'Focm_trmUhasalgnadMwinas' 

3759  2  ABribute  VB.Craatebla  -  True 

3760  3  Attribute  VBJ>r8daclaradld- True 

3781  4  ABribute  VB^^Bqioaad  -  Fabe 

3782  S  Op0on  Compera  Database 

3783  6  OpBon  Eitoiclt 

3784  7 

3785  8  Private  Sub  Ctoaa.CickO 

3788  9  On  Error  GoTo  Err_Ctosa_CMc 

3787  10 

3768  11  Dim  stDocNm  As  String 

3789  12  Dim  sILInkCritetla  As  String 


3770  13 

3771  14  'Oosatba  currant  form 

3772  15  DoCmdCtesa 

3773  16  •  Open  spaclfM  form 

3774  17  stDocNama  -  'frmAnalyzaRasur 

3775  18  OoCmdOpanForm  sSTwNeuna, . ,  stUnkCrltoria 

3776  19 

3777  20  EXLCtosa_aclc 

3778  21  Ext  Sub 

3779  22 

3780  23  Err.Ctoaa.acIc 

3781  24  MsgBoxErr.DascripVon 

3782  25  Rasuma  EXtCtosa.Cick 

3783  26 

3784  27  End  Sub 

3785  28 

3786  29  Private  S(tt>cfnbSSNRndJkriMtJpdate(} 

3787  30 

3788  31  Dim  R  As  Recordset 

3789  32  SetR-Ma.RacordielCtone 

3790  33  RFlndRrst  '[SSN^Piq  .  '  &  Chr(34)  &  Me![cnibSSNFnd]  &  Chr(34) 

3791  34  Me.Bookinark  >  RBookmark 

3792  35  htelfcmbSSrFinc^  -  ftol 

3793  36  Mi.Ctow.SaFocus 

3794  37 

37%  38  EndSub 

3796  39 

3797  40  Private  Sito  Form_CurTent() 

3798  41 

3799  42  Dim  stSQL  As  String 

3800  43  Dim  rec  As  Ftocordsel 

3801  44  Oimttol  As  Database 

3802  45 

3803  46  Satctol.CurrsntDb() 

3804  47 

3805  48  '  Calcutates  ttw  nuirber  of  unassignad  iwrines. 

3806  49  atrSO,- •SELECT  CowitfPEF)  AS  Totattjnasslgted  FROM 

3807  SO  Setrac-dbl.OpanRecorctaetfstSQU  (tiOpenSnapshol) 

3808  51  Ma.b<TotB]Unas8tgnad-raclToiBiLlnassi7ted 

3809  52 

3810  53  EndSito 

3811  54  Private  S(i>btoAssign_Clck() 

3812  55  On  Error  QoTo  Err^btoAssiTvCtick 

3813  56 

3814  57  Dim  StDocNama  As  String 

3815  58 

3816  59  atOocNsme  -  *tiTnSpeclalAsaignmantO(UnassignedMBrtne’ 

3817  60 

3818  61  OoCmdOpanForm  sOocNatna 

3819  62 

3820  63  EXLbtoAssi^^Cicfc 

3821  64  EXtSub 

■u»9  65 

3823  66  Em_btoAssi9i_CMc; 

3824  67  MsgBox  Err.Oescriptton 

3825  68  Resm  EXtJitoAsaign.Cick 

3827  70  EndSub 

3828 

3829  Fbrrrt  MjbrrmFundamentelPropen/ 

3830  Cods 

3831  1  Attribute  VB.Nante  m  'Forrr)_wbfrTnFtsidameriiatProper1y' 

3832  2  Attribute  VB_Craatabte>  True 

3833  3  ABribute  VB_Predectaredld- True 

3834  4  ABribute  VB_Btocsed.Falaa 

3835  5  OpttOTi  Compare  Datebese 

3836  8  Option  Espictl 

3837  7  Private  Sii>cmbValue_FKJKnKDpdata() 

3838  a 

3839  9  ForTT»irnTiF(ndatnentaPropetty![FPropartyNanno_PK].SelFocus 

3840  10 

3841  11  ErtoSub 

3843  13  Private  Sub  cmfaVBlua_FK_Be(oraU)3date(CBneai  As  Integer) 

3844  14 

3845  15  On  Error  GoTo  EtT_cmbValua_FK_Bafo»H)date 

3846  16 

3847  17  DlmdbAsOeatoaae 

3848  18  DimracAsRKordMt 

3849  19  Dim  strSQL  As  String 

3850  20  Dim  Convert  As  Variant 

3851  21 

3852  22  ■ptecasvBluainaformagraaabtatoAccess(a.g.'Hror‘10^ 

3853  23  Convert- 

3854  FormsIfrmFundamantalProparlylaubfnnFisidanMtttaB’ropariylcrrbVaius.FK  &  "* 

3855  24 

3858  25  ‘  Opens  VMtabtePROPEPTTY.VALUE 

3857  26  StrSCL-'PROPERTY.VALUr 

3858  27  Satrto.CurrenObO 

3859  28  Set  lac  -  (l>.OpanRacordael(strSCL.  dbOpenSnapShot) 

3860  29 

3861  30  '  Seerctws  for  the  vnkw  entered  by  toe  user  in  the 

3862  31  rec.FindRrst  *Value_PK  -  '  &  Convert 

3863  32 

3864  33  '  It  ttw  value  Is  not  in  toe  PROPERTY.VALUE  table.  It  Is  added 

3865  34  If  rec.ftoMatoh  -  Tnre  Than 

3866  35 

3867  36  ‘  Disables  toe  aettm  query  confinnetion  message 

3868  37  Appieallon.SetOpton  ‘Confirm  Acton  Queries',  Fabe 

3869  38 

3870  39  'Enisrs  toe  value  into  toe  PRQPERTY.VALUE  table 

3871  40  DoCmdOpenOuery  ‘gryUpdataProperty^Value' 

3872  41 

3873  42  '  Updatos  toa  rtop  down  lit  for  ttw  combebeoc 

3874  43  StiSQL-^SaECT  DISTINCT  •& 

3875  R>fms!frrnFundamatitBlPropeclylMv1neField  & '  FROM  MARI  fC;' 

3876  44 

3877  Fb(TrallrmFurdamonldProperiylsubfrmFuxtomintaIPropei1yTcrTbValue_FK.RowSou 

3878  rce-  strSOL 

3879  45 

3660  46  ’  Enablas  tM  action  query  eonfirmaton  message 

3881  47  Applcattcn.Se(Oplon  ‘Conrirm  Acton  Queries*.  True 

3882  48  End  If 

3683  49 

3684  50  rec.Ctose 

yfftS  51 

3886  52  EXLcmbValue.FieBeforeUpcIeto: 

3887  53  EXtSub 

3888  54 

3889  55  Err_cntoVslue_FK.Beforeltodato; 

3890  56  btagBoxErr.DescripOon 

3891  57  AppfcaSon.SelOplon  ‘Confirm  Acton  Queries^,  True 

3892  58  Ream  EXtcmbVdua_FK.8e(oreUpdate 

3893  59 

3894  80  EndStto 

3895 

3896 

3897  Fonre  subftmFtmtamantdPropat^Ust 

3898  Code 

3899  1  AaributaVB_Ntene-*ForrrusublrmFundBmantolPropenyUsr 


3900 

3901 

3902 

3903 

3904 


3907 


3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 
3916 
3919 


3926 

3907 


3934 


3907 


3941 

3942 

3943 


3947 


2  Attiibul*  VB_CrMtabi»  «  Tiu* 

3  ABributo  VB.PradtcbradId  -  Tom 

4  Aoribula  VB.B^oud  -  Fabo 

5  OpSoo  CoTpara  Ootabasa 

6  Opfon  E^cit 

7 

6  Privata  Sub  cni)Vaiua_FKJ3«(or«U^MCancaj  Aa  Inlagw-) 

9  On  EfTW  GoTo  Enr_cnnbValua_FlCB«for«lJpdaia 

10 

11  Dim  db  As  Databasa 

12  Dim  rac  As  Racordsal 

13  Dim  strSQL  As  String 

14  Dim  Convatl  As  Variant 

15 

16  'Opans  tw  KiblrmFundamantalProparly  so  ttta  folowing  coda  wU 

17  OoCmdOpanForm  'subfrmFundamantatProparty*. , , , .  acHddan 

18 
19 

ao  ‘PtacasvakM  inaromnagraaabiato  Accass(a.g. ‘HTof’ICr] 

21  Convart  -  “  &  Formst(3ub(rmFundarmntaPraporV]!cmbValua  FK  & 

22  '  Opans  «» tat^  PROPERTY.VALUE 

23  strSQL  -  'PnOPEFTncVALUE* 

24 

25  Satdb-CurrantOb() 

26  Sat  rac  ••  ds.Opannicoricba^strSQL,  dbOpanSnapshot) 

27 

28  ittc.RndFirat’Vakja.PK-'&Convari 

29  If  tac.NoMat:h  •  Thm  Than 

30  '  DisablasSw  action  quary  confirmaion  matsoga 

31  Appication.SalCplion  'Confirm  Acbon  Quarias',  Faba 

32 

33  OoCmdOpanOuary ‘qryUpdalaProparty  Valua* 

34  strSQL  -  'SELECT  DISTTNCT '  & 
FbmnalfrmFimdafnanWPropartylMarinaFiald  &  '  FROM  MARINE:' 

35  Ma.cmbValua_FK.RowSoutt;a  .  strSQL 

36 

37  ‘  Enablas  Via  action  quary  confirmation  massags 

38  Appicabon.SatOplion  ‘C^rm  Action  Quarias*.  Trua 

39  End  If 

40 

41  rac.Cloaa 

42 

43  'Closas  tw  subfrmFundamenlalPropany  witiout  saving  ctiangas  to 

44  DoCmd.Closa  acForm,  'subirmFundamentalProperty' 

45 

46 

47  ExLcntiValiM_FK_BaforaUtKtak: 

48  E»tSub 


3949  SO  Err_crT*Vakja_FK_BafofaUtKlati; 

3950  SI  IfcgBoxErr.Dascription 

3951  S2  AppicaboaSatOption  'Confirm  tebon  Quarias',  Trua 

3952  S3  Rmutw  ExLcmbVBlua_FK_BaforaUpdala 

3953  54 

3954  56  End&i) 


3956 

3957 
3956 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 


3971 

3972 

3973 

3974 

3975 


3979 

3880 

3981 

3962 

3983 

3964 

3965 
3986 

3967 

3968 

3969 

3990 

3991 

3992 

3993 

3994 

3995 

3996 


57  PrtvahiSii)VBluaJK.BaforaUpd8to(CatKalAstntigar) 

58  On  Error  GoTo  ErT_Va)ua_FKjaaforaUpdato 

59 

60  Dim  db  As  Oababasa 

61  Dim  rac  As  Racordsat 

62  Dim  strSQL  As  String 

63  Dim  Convart  As  Variant 

64 

65  ‘PtaoasvaluainaformagraaofalaS9Accais(a.g. 'HTor‘10) 

66  Convart*  & 

Forms!frmFundamantalPropariyltubfrmPundatiwn(ar>roparVLiitlValue_FK&  **' 

67  '  Opans  fia  tabia  PROPERTY.VALUE 

68  sbrSQL  *  'PRCPEFTTCVALUE' 

69 

70  Satdb-CunantDbO 

71  Sat  rac  *  db-OpanfiscordsatfstrSQU  AOpanSnapshot) 

72 

73  rac.FtndFirst*Valua_PK-*  &  Convart 

74  ’ThislfThansWsmsntchaclak>saaifbwanlsradvaluaisjn 

75  ‘PRCPERTY.VALUElabla.  HnoLitisaddadlothaMila. 

76  Ifrac.NoAtafcrh.Ttua'nwn 

77  '  Disablat  tha  acbon  quary  confirmabon  massaga 

78  AppKcaboaSaCpbon  'Confirm  Acbon  Cuaiias*,  RIsa 

79 

80  DoCmdOpanQuaiy  'qryUpdataProparty.ValuaUir 
61 

82  *  Enablas  tfw  acbon  quary  corfirmabon  massaga 

83  Appicabon.SaCpbon  'Confirm  Acbon  Quarias',  Tnra 

84  End  II 

85 

86  rac.Ctosa 

87 

88  ExiLValua_FK.BafofaUpdaSi: 

89  EibtSub 

90 

91  Err^VAM.FfeSaforaUpdato; 

92  WsgBox  Err.Dascripbon 

93  AppicaboaSalOpbon  'Confirm  Acbon  Quarias'.  Trua 

94  Ftosuma  ExL.Valua  FK^BafocaUpdats 

95 

96  EndSub 


3999  Moduia;  modFitfiassDalarrTsnebon 

4000  Coda 

4001  1  Attributs  VB.Nama  «■  'tnodFifeiassOalBrminafon* 

4002  2  Opion  Compara  Oatabasa 

4003  3  OpbonEspicit 

4004  4 

4005  5  Dimb>g5lBrt,hgEndAsLiQng 

4006  6 

4007  7 

4000  8  Pubic  Foncboo  FundPropTasIfFurxPropNBma  At  String.  SSN  As  String)  As 

4009  9 

4010  10  Dim  rac  As  RacoftlsaL  tac2  As  Racordsat  rac3  As  Racordsat 

4011  11  Dim  strMarfiaW  As  String.  sbFundOparatof  As  Sting.  StrSQL  As 

4012  12  Dim  strMarValuaSOL  As  String.  sbfimdValuaSCIL  As  Sting,  stinput  As 

4013  13  DimvarFundValua.  varMarValua 

4014  14  Oimdbl  As  Databasa 

4015  IS 

4016  16  FuncPropNama  ••  *"  &  Funtf^repNama  &  "*  Dss  arprassion 

4017  propady  formatastwargumamFundP^Nama,  by  piadnga'infrontof 

4018  and  bahnd  Via  vabia  found  in  FuncPropNama. 

4019  17 

4020  18  Satdbl  -  CunwiObQ 

4021  19 

4022  20  StrSQL  •  'SELECT  MarinaFioid,  Oparalof  FROM  FUNDAMEMTAUSHOPERTTY 

4023  WHEPE  FProparVN»TW_PK  *  *  &  FuidPropNama 

4024  21  Sat  rac  ••  (l>1.0panRBcordsal(strSQL  drOpanSnapshot) 

4025  22  slrMsrRaU.  tacnvfarinaFiald 

4026  23 

4027  24  sirFundCparakir- racICpanlDr 

4028  25 

4029  26 


4030  27  attnput--“&SSN&'” 

4031  28  stMsrValuaSOL-‘SEt£CT*  A  stiMaffiald&' AS  [Valua]  FROM  MARINE 

4032  WHERESSN_PK-*  4  stinput 

4033  29  Sat  rsc2  *  <1)1  .OpanRscordsat(stiMarValuaSQL.  diOpanSnapshol) 

4034  30  varMarVrbua  -  rac2Valua 

4035  31 

4036  32  itFifidValuaSQL  -  'SELECT  Valua_FK  FROM  FUNO_PFDP„VAL  WfCRE 

4037  FProparyNama_FK  ■  *  4  FundPropNome 

4036  33  Sat  rac3  -  <t>1  OpanRscordsalfstrFtiKfVaJuaSQL  dbOpanSnapsboI) 

4039  34  varFuvlValua .  rac3!Valua  FK 

4040  35 

4041  36  ’ConvartvarFundVahjaandvarMarVaJuatoanumaric.  ilpossibia 

4042  37  It  lsNumaric(varFundVaiua)  And  lsNumaric(vaiMBrValua)  Than 

4043  36  varFundValua  >  Clnl(varFuylValua) 

4044  39  varMwVdia*ant(varMaiVBiua) 

4045  40  Eba 

4046  41  varf^mdVaiua  ■  CStr(vBrFinclValua) 

4047  42  varMarValua .  CStr{varMarVdM) 

4048  43  Ercl  If 


4050 

4051 

4052 

4053 
40Si 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 


4067 


4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 
4068 

4089 

4090 

4091 


4095 

4096 

4097 
4096 

4099 

4100 

4101 

4102 

4108 

4104 

4105 

4106 

4107 
4106 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 
41X 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 


44 

45  Salad  Casa  stFundOparator 

46  Casa  '•>' 

47  If  varMarValua -varFundVidua  Then 

48  FundPtopTasl- Trua 

49  End  If 

50  Casa 'not** 

51  If  varMarValua  <>  varFundValua  Than 

52  FundPropTast*  Trua 

53  End  If 

54  Casa'<* 

55  If  varMarValua  <  varFundValua  13Mn 

56  FundPropTast  ••  Trua 

57  Endlf 

58  Caia'>* 

59  II  VBiMarValua>  varFundValua  Than 

60  FundPropTast*  True 

61  Endlf 

62  CBsa*<*' 

63  If  varMarValua  <.  varFundValua  Than 

64  FundPropTast- True 

65  End  It 

66  Casa’s** 

67  If  varMarValua  >*  varFundValue  Than 

68  FundPropTast- Trua 

69  Endlf 

70  Casa  'in* 

71  Do  Unll  rBc3.E0F 

72  VBrFundVtAja.iac3!VeiM_FK 

73  If  lsNumahc(varFundVakw}  And  lsf4irr«ric(var4tarValua) 

74  varfundValue  >  Clnl(varfvDXfVaiua) 

75  varMarVakja-CInltvarMarVBlua) 

76  Eba 

77  varFvK^akis  -  CStrtvarFundValua) 

78  varMarValua  -  CSbtvKMsrVaiua) 

79  Endlf 

80  If  varMarVdue- varFundValua  Than 

81  FuncPropTast  -  True 

82  Endlf 

83  rac3.MovQNa]4 

84  Loop 
65  End  Sabct 

86  rac2.Ciosa 

87  racS.CIoaa 

88  itil.Ctosa 

89 

90  BidFuncbon 

91  Pubic  Funcbon  LogOrTast(lnputl  As  Boolean.  Input2  As  Booiaan)  As 

92 

93  If  Inpun  Or  Input2  Than 

94  LogOrTast-Trua 


95  Baa:  LogOrTatf.  Faba 

96  Endlf 

97 

96  EndFimcbon 

99  Pubic  Funcbon  |jogAndTost(lnput1  As  Boolean.  InpuQ  As  Booiaan)  As 

100 

101  If  Input!  And  InpuQ  Than 

102  LogAndTast-Tma 

108  Eba:  LogAndTest  -  Faba 
104  End  If 

106 

106  End  Function 

lOTRjbic  Funcbon  LogPropTastfLogPropNarTw  As  Sting,  SSN  As  Strirrg)  As 
106  DimintNaivLBoundAsIniager.jAsIntogor,  kAslnteger.  lAs 
InSsgar,  m  As  Intagsr 

109  Dim  booOiGpatator  At  Boobon.  bocAndCparaior  As  Booiaan, 
booNotCparaior  As  Booiaan 

110  Dim  strLogicalEquabon  As  String,  stSQL  As  String,  strinput  As 

111  Dim  sltWof1dr>gEqn()  As  String 

112  Dim  intSpacaPos  As  InIsQar  ‘  posi  bon  of  the  space 

113  Dim  ct>l  As  Databasa 

114  Dim  rac  As  Recordset 

115 

116  Sat  (t>1  .CurranlDtK) 

117 

118  'Gat  ha  logical  aquabon  from  tie  LC6ICAL.PR0PEmYbibie 

119  stinput -*“&LogPropNana&~ 

120  stSQL- 'SELECT  Logic^Equabon  FROM  LOGICAL_PROPERTY  WHERE 
lRropanyNama_PK  -  ’  &  strinput  &  ” 

121  Sat  rac  -  dbl.QpanPacords^stSQL  drOpanSnepshot) 

122  stLogcalEquabon  -  racILogcaEquabon 

123 

124  ‘  Pane  ha  tting  into  an  a^ 

125  '  dacbra  ha  Ismporaty  string  as  an  array 
125  RsOim  strWot1(ingEqn{0)  As  String 

127 

128  ‘  Find  ha  poaibon  of  ha  first  space 

129  irtSpacaF^s  -  InSttsttogcaiEqualon.  *  *) 

IX  '  loop  unbi  no  more  spaces  are  found 

131  ‘InStratorroO  if  ha  space  is  not  found 

132  Do  Lhbl  intSpacaPos  -  0 

133  '  radmansion  ha  array,  addng  another  aiamant 

134  'UBouidtsIsushoMrmanyalamantsharaalraady  arainha 

135  ReOiffl  Ptaiana  strWorfdngEqn(UBound(strWorldngEqn)  +  1) 

IX 

137  ‘  sat  ha  nswslanantta  ha  charactars  from  ha  bagnningof  ha 

IX  '  sting  up  to  ha  first  space.  UftS  ratums  a  number  of 
IX  'fiomhabagintingof  asting 

140  stWor1dngEqrt(UBound[stWoridngEqn))  - 
TiimS(LaftS{strLogica]Equation,  inBpacaPos  •  1}) 

141 

142  'rtowvw'vacopiadhasacharactsrs  intohanama.hay  canba 


143  ‘  rsmovad  from  ha  original  string.  R^j^tS  ratoms  a  nutihar  of 

144  *  characters  from  ha  and  of  ha  sting.  It  is  ha  rightnostN 


82 


4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 
41 6B 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 
41 7B 

4179 

4180 

4181 
41BZ 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 
4206 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 
4236 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 
42SD 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 


145  'dwactBfs.  twr«»ore»»si**»ct#i«pe»ii«onolt»sp«:« 

146  twlangBioltw  string.  Ths  gtvm  us  t»  nurter  of 
cturactors  remtining. 

147  stlflgical&iusbon  -  LTrinnS(H^i!$(sWjo9W«)EquBl>on. 
L8n(s9LooicaIEqu«tjon)  -  irtSp*<»Po8)) 

148 

149  '  find  niui  spsc« 

1 50  intSpacePos  -  lnSS(sSlogica)Equaton.  *  *} 

151  (joop 

152 

153  For  j  - 1  To  (lBoi«X»tWorkin^)) 

154  lfs>Wof1dngEqn(J-TThen 


157  FQrk-0+1)Tp  (UBound(s#’Wor(dngEqn)) 

1 58  Sstoct  Cam  s8WorldngE(ir(>4 

159  CtaoT 

160  For  l-0+t)ToCk-l) 

161  Select  Case  sfrWorkingEqn(I) 

162  Cwe'Q' 

163  booOrOperetof  ••  Tme 

164  Cmo'AixT 

165  booAndOpersbr  >  True 

166  Cue-MoT 

167  txwNolCtwreior  >  True 

168  Case  'True* 

169  If  s^Worldng&rti)  -  T  "Dwi 

170  lltwoNotCJJoralDrTheo 

171  sbWorkingEqnO  - 

172  booNotOperator  -  False 

173  Bse 

174  rtWoHdngEqnm  -  True’ 

ITS  End  II 

176  Bse  ‘EnkuM  after  tfw  first 
bracketed  property  is  tasted  and  stored  in  ttw  locaton  of  T 

177  |{booNotCporatorTt»n 

1 78  strWor1or>gEc|n(li  -  •Fabo’ 

179  booNriOperator  .  False 

180  Endll 

181  If  booOOperatorThen 

182  sfrWorldngEqnO « 
LogOTest(C8ool(saWarfongEqn(D).  CBooKs»WoridngEqn(l)}) 

183  bdoOCporator  -  False 

184  Elself  booAndOperalor  Then 

185  atrWortdrrgEqryi)  - 
LogAndTes1(C8aol(sirWarldngByi(D).  CBooKafrWorldngErrtl))) 

186  booAndQperator  -  False 

187  Endll 

168  Endll 

189  Case 'False* 

190  If  stWortdng&mCi)  -  T  Thef* 

191  II  booNolOperaior  'Ihen 

1 92  slrWorlangEcF>(D  -  Tn*' 

193  booNotOperator  .  False 

194  Ebe 

195  sbWorldngEqnd)  -  'Fabe* 

196  End  If 

197  Ebe  *  Eaecutod  after  Vw  first 
bracliBtad  property  is  tasted  and  stared  in  the  locaf  on  of  '(* 

198  ft  booNotOperator  Then 

199  arWor1dngE7i(D  -  True' 

200  booNotOperator  -  Fabe 

201  Endll 

202  IfbooCrCperatorlhen 

203  sbWcr1dngE(8r(il  - 
LogOrTo«<C8ool(s»Worldn9Eqn(j),  C8oo<s»Wor1<jn^&rtl))) 

204  booOrCperator  Fabe 

206  Ebetl  boo^toOperator  Iben 

206  strWor1dngCqn(i)  •• 
LogArKrTest(C8ool{s#’WorldngEqn<i)),  C&ool(atrWorkingEqn(I))) 

207  booAndCperator .  Fabe 

206  Endll 

209  Endll 

210  Case  *)'  'Do  nothing 

211  Case  Ebe 

212  H  saWoridngEqnOl  -  T  llwi 

213  llboaNolCperaUrlben 

214  sbWorldngE<yi(i)  >  Not 
(FundPropTesl(s»Wark)ngEqn(1).  SS^4) 

215  baoNolOperatar  m  Fabe 

216  Bse 

217  skWorVingEqnai  •« 
Fur«fPrapTes1(s»WarfcingE(y)(l).  SSfi4 

218  Bat  II 

219  Bse  '  Eascutod  attar  ttre  first 
bracketed  property  is  tasted  and  stored  in  Swtocaionat  *{* 

220  If  booNotCperator  Then 

221  skWortongEiryi)  -  Not 
{FtnlPropTesl(saWorkingEqn(t).  SSf4) 

222  booNotOperator  -  Fabe 

223  Ebe 

224  sbWorldngErrtI)  - 
FitadPropTestfstrWorkingEryiO).  SSN) 

225  Endlf 

226  If  booOrOperator  Then 

227  sfrWor1dngEqn(i)  - 

Log&Tost(C8ool(s7WorldngEqn(i)),  C8ool(s» World ngEcin{^)) 

228  booOOperabr  >  Fabe 

229  Ebell  boc^KfOperalor  Then 

230  slrWorkin^^  - 

LogAndrestCCaooKsIrWarldngEqnQ].  C8aal(sbWorktngE<|n(l))) 

231  booAndOporator  >  Fabe 

232  Endlf 

233  Endtf 

234  EndSeiect 

235  Ntatl 


239  iriftaMUBcKtod-  lJBoiaid(s»Wor1dngEqn)-(k- j) 

240  If  inStaw^JBound  o  1  Then 

241  HeOim  s»TransfQrTned£qn(1  To  inMennUBound) 

242  For  nn.  1  To  j 

243  skTrarBforrTwdEtrtm)  -  a*WorlangE<yi<n)) 

244  Netfm 

245  For  m  *  (k  +  1)  To  UBound(s*WorkingEqn) 

246  sSTrarBfbrmedEryym .  k  <»  il  ■ 

247  NeXm 

248  ReOim  skWorldngEqrK  1  To  inNswLBourd) 

249  For  m  «  1  To  ssNsMCBamd 

250  saWor1dngEqp(rr4  >  atrTransfarTnedE(pi(m) 

251  Nestm 

252  i-1  ‘Set  j  beck  to  a  value  of  1. 

253  GoToLinel  ‘Jmpe  beck  to  For ] -  1  to 
(lBcMid(strWcr1dngEqn)kx)p 

254  Ebe 

255  LogPropTest  >  stoWorfcingEqn(j} 

256  Erase  alrWatldn^qn 

257  Erase  stoTfansfarmedEryi 


4290  258  Bit  Fuiclian 

4291  259  End  It 

4292  260  Caso'C 

4293  261  j-k 

4294  262  Q>ToUnel  ’Jumps  beck  to  For  j «  1  to 

4295  (UBound(sfrWorkingEqn)ioop 

4296  263  'EalFor  'Eiib  lie  For  k -  0 1) 

4297  (UBoitad(ifrWoridngEqn))  loop 

4298  264  EndSeiect 

4299  265  Nerdk 

4300  266  Endll 

4301  267  Neitj 

4302  268 

4303  269  End  Function 

4304  270 

4305  271  Pitoic  SU>  FitnessO 

4306  272  DimsbSQLAsStong.  stoCbssMaitoerAsSbing.  slAMOS  AsSbing 

4307  273  Dim  sblitoutl  As  Sling.  SSInpuC  As  Sling 

4306  274  Dim  i  As  Integer.  I  As  Integer,  k  As  Integer.  I  As  Integer 

4309  275  Dim  inNormaFactor  As  Inte^,  inIRt  As  Integer.  inOnput  As 

4310  276  Dim  inlevell  As  Integer,  nLflveB  As  InSsger.inleveO  As  Integer 

4311  277  Dim  inLeveU  As  Integer.  inleveE  As  Integer,  inLevel6  As  Inte^ 

4312  27B  Dim  sngDesiredWeight  As  Single.  angEpsim  As  Singte,  sngSunOfRl  As 

4313  279  OimsngCcKattAsSingb,  sngAvgRtAsSingb.  sngRtoasiAsSingb 

4314  280  OimsngMandRIValueAsSn^ 

4315  281  OimIngGradOatoAsLong 

4316  282  Oimdbl  As  Database 

4317  283  DimrocaassAsRscortbetrecMarineAaFtecof<bet,recMarasRtAs 

4318  284  Dim  recPEF  As  Recordset,  recFDesired  As  Recordbel.  recLOesirad  As 

4319  2BS  Dim  recFMand  As  Recordset,  recLMand  As  Recoirbet 

4320  286  OimbooMandPropAsBooietei.  booPEFAsBooban,  booMandatory  As 

4321  267  OknvwRBlValAsVariW 

4322  288  Dim  IrmQxrerrt  As  FomiJfmClassQuotoPenaJtyAntffit 

4323  269 

4324  290  Set  frmCirrent  -  Farm'bmCbssCtoobPenaltyAndRl 

4325  291  Setdbl -CurrenSbO 

4326  292 

4327  293  '  Create  TEMP.FITtebta 

4328  294  AppicaboaSetOption  'Confirm  Actian  Queries'.  False 

4329  295 

43X  296  IngGradOato  >  (rmCiarenilMCTQ-adDate 

4331  297 

4332  296 

4333  299  '  Create  2  TEMP.RT  tabbs  from  MAR.CLS_nT  abb 

4334  300  dbl-EteCuto 'SELECT  SSff_FK.  Marinelndeo^  CbsslndoK^FK.  Rtoess  INTO 

4335  TEMP_FTTFRaMMAFLajS^FIT;- 

4336  301  rbl  .EtedJto  'SELECT  SSN_FK.  Msrinelndn^  Ctasslndei^^FK.  Fitioss  INTO 

4337  TEMP.FTTI  FROM  MAa.CLS_Frr;* 

4338  302 

4339  303  'Insert  into  »ieTEMP_nTbbtei  the  appfcabteSSNs  based  on  MCT 

4340 

4341  304  db1.Etecuto-|NSEm'INTOTEMP_nT(SSN_FK]SELECTMAFINE.SSr<.PKFFOM 

4342  irySSNWFCRE&adOate-*&ingOadDate&" 

4343  305  db1.E*cuteTNSERriNrDTEMP_FlTl(SSN.n<)SELECTMABINE.SSbLPK 

4344  FRCM(yySSNWKEREOadOab-'&lngGrBdOato&- 

4345  306 

4346  307  Apptcalion.SelCpiian  “Confirm  Action  Ctoeries'.  True 

4347  306 

4348  309  ‘Create  a  dynaset  Of  t»temp,.fillibte 

4349  310  seSOL- •SELECT*  FnCMTEMP_Rr 

4350  311  SelrecMteCbRt-db1.CpenRBCordset(s»SOL.dbCpenDynasaQ 

4351  312  recMarCbRtMMeLast 

4352  313 

4363  314  'CieetotoeMerinelndexIortoeTemp.fittabla 

4354  315  lfrocMteCbFiLRecordCoi«l>0'Then 

4355  316  recMarCbRlMoveFirsI 

4356  317  Fbri-ITorecMuCbFiLRecordCount 

4357  318  reekto^CbRiEdt 

4358  319  recMteCbReMarineIndBX-i 

4359  320  racMsrCbRtUpdato 

4360  321  racMarCbRtMcMBNwt 

4361  322  Ne4i 

4362  323  Endlf 

4363  324 

4364  325  ‘  Create  a  dynaset  of  toe  Ctess  bbla 

4365  326  sbSOL  -  *SEL£CrSCo«3oNuntoer_FK  AMOS_FK  FROM  CLASS* 

4366  327  SeirecCks»-db1.CpenHecordM4(sVSCL  dbCPenOynaseQ 

4367  328  If  r ecCtan.EOF  .  Fabe  Tfwn 

4368  329  recOasaMoveLBst 

4369  330  recaass.KbwRtst 

4370  331  Endll 

4371  332 

4372  333  '  Create  a  dyiteset  of  toe  Marne  tebb  based  on  TEkPJRTi  bJjte 

4373  334  sbSQL  -  *Sa£CT  *  FROM  MARfiC  .  TEMP  RT1  WHEPE 

4374  (((X*«fiE.SSN.PK)-nHMP_FrnUSSN_RCB);* 

4375  335  Set  recMarine  -  it)1.Cpennecortbel(s»SaL  rtoOpenOynaaeO 

4376  336 

4377  337  If  recMarine.  EOF.  Fabe  Then 

4378  338  recMarine.MoveLasl 

4379  339  recMarine.  MmeRrst 

4380  340  Endtt 

4381  341 

4382  342  'Inliakzeteriablea 

4383  343  booMandProp  -  Tnn 

4384  344  mFil.O 

4385  345  booPEF .  Fabe 

4386  346  booMandatory .  Fabe 

4387  347  inMormaFactor  -  100 

4388  348  tnLavel1.32 

4389  349  inljewf2.16 

4390  3SO  inLevel3.8 

4391  3S1  inL0veW>.4 

4392  352  inlme6-2 

4393  353  intje«el6-1 

4394  364  sr^OesiradWeight . 

4395  365  sngMarvfRIValue .  (1  -  sngOesitedWeigM  *  tnMormeFactor 

4396  366  wRatVal .  Sy30nf(acSysOnSniMeter. 'Sbtos...*. 

4397  367  sngEpblon  >  0.000001 

4396  368 

4399  359  '  Verify  recCbss  has  vMues 

4400  360  lfrecCbs3.RBcordCauV>0Then 

4401  361  stOassNuntw  -  'X* 

4402  362  srAMOS  -  ’X" 

4403  363 

4404  364  '  Cycb  totough  al  toe  classes 

4406  366  Fori- 1TorecCtess.ReccrdCottot 

4406  366  '  YeiU  conkol  totrporarily  to  WindCMa 

4407  367  OoEvenb 

4408  368  ‘  i^n»  status  bir 

4406  369  vwFteWal.SysCmd(acSysCmdM)dateMetor.i) 

4410  370 

4411  371  *  Ltxfste  toe  claasindBi(_FK  for  toe  MsrCbRt  record 

4412  372  If  recMarCbRlRecordCounl »  0  Then 

4413  373  recMvasFiLMuveFrst 

4414  374  For  i  - 1  To  recMarChfilflecordComt 

4415  375  recMarCbRtEdit 

4416  376  r«eM«CbReCla3slnde9(.R(  -  i 

4417  377  recMarCbRllJ^te 

4418  378  recMarCbRlMneNeid 

4419  379  NeXj 


83 


442D 

*421 

4422 

4*23 

4424 

4425 
4425 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 


4447 


4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 
44^ 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 
4464 
4485 
*466 
4467 
4488 


380  racMoiCIsFilVtowPtnt 

381  End  If 

382  '  CtMcIc  to  M*  i(  rwxt  racord  n  tha  aama  school  aa  toa  last 

383  ‘Ifitia,  a}3pandittothaMA8^CLSJ=ITt^ 

384  If  (rocCJasalSCowrseNjirbar.FK  -  stClaashtorttoar)  And 

(racCka3!AMOS_R<  -  strAMOS)  Than 

385  App*cafion.Sa05>lion  Action  Quorios',  Falsa 

386  dbl .  Btocute  •INSERT  INTO  MAR_CLS  FIT  (  SSr»LFK. 

Marinalndot.  OassJndaJLpK.  Rtnass)  SELECTTEMfO^T.SShLFK. 
TCMP_FIT.Mahn*ln<tax.  TEMP.nT.aasalndsocFK.  TEMP^RT.Fihass  FROM 
TEMP.FIT  WHERE  TEMP.nT.FHnasi  >  0;' 

387  Apptication.  SaC^jtion  'Confirm  Action  Quarias',  Tfua 

388  i«cC>as3.MovaNsod 

389  Elsa 

390  angSumO»Ftt-0 

391  angCouit-0 

392  booPEF- Falsa 

393  Varify  racMahna  has  wluaa 

394  If  rM:Mahna.RgcordCount  >  0  Than 

395 

396  '  Inifaisa  voriahias 

397  sWnpctI  -  -  8  ^acC^a^s!SColr»^iart)a^_FK  &  " 

398  *1110012  -  “  &  recaaas!AMOS_FK  &  “ 

399  intinpot*  0 

400 

‘  Find  alF€PtassociatodWlh8*a  currant  school 

402  SIrSQL  •  •SELECTPEF_FK  FIBM  SCH^PEF  W^€FIE 

SCoor^a^iJmbor_FK  •  *  &  strinputi  &  ‘  anti  AM0S_FK  -  '4  strinpott  4  ** 

403  Sat  racPEF  -  dbl.Cpannacordsat(s&’SCIL 

404  If  racPEF.EOF  .  Fttoa  Than 

405  racPEF.MowLast 

406  racPEF.MovoFirst 

407  Endll 
406 

409  ■  Find  mandatory  fundanvntal  propartias  asaociatod 
Mil  tiw  currant  school 

410  strSCX  -  ‘SELECTFProparlyNama.FX  FROM  FUND_SCH_PFOP 
WHERE  SCkx*rs8l^jmbar.FK-’6  8«nput1  4’ AND  AMOS.FK-  •4strlnput24 
AfCLewl-  4iRtlnput4*' 

411  SotiacFMand-dbl.CpanRacordsalfsS^X. 

412  IfracFMsndECF-FabaThan 

413  racPMandMowsLast 

414  racFMandMowFirst 

415  End  If 

416 

417  '  Fmd  mandatory  logical  proparliaa  associatod  aitti 
tha  currant  school 

418  atrSQL  -  ’SELECT  LPropaftyNamo_FK  FROM  LOQ.SCH  PRCP 
WHERE  SCouraaNuni>ar_FK-  '  4  aWnputI  4  *  AND  AMOS.FK-  •  4  BWnput2  4 
AhO  Laval  -  4  intinpul  4  " 

419  Sat  racLMand  -  dbl.CpanfloeordaelfatrSCU 

420  If  racLMmdEOF.  Falsa  Than 

421  racLMandMovalast 

422  racLAtondMovaRrst 

423  Endll 


425  ‘Rnddaaradfundernantal  propartias  asaoctatodwOi 

toacurran  school 

426  strSO.  -  ‘SELECT  FProparty N*ma_FK  [Uval]  FROM 
FI»0_SCH_PFICP  WHERE  SCouraaMrmbar.FK  -  ‘  4  strinputi  4  ’  AND  AMOS  FK  -  ' 
4  slrlnput2  4  '  AN?  Laval  <>  *  4  intittout  4  ** 

427  Sat  racFDaarad  -  *1  .CpanRacordsalfstrSQL, 

428  If  rscFDasirad.EOF  -  Falsa  Thao 

429  racFOasnadMovaLast 

430  racFOastradMovaRrsi 

431  End  If 


433 


*  Find  daa 


todatodvritiitoa 


4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 


4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 


4546 

4547 

4548 

4549 


434  sIrSQL  -  ‘SELECT  lPropartyNwna_FK.  [tn«l]  FROM 
LOG_SCH_pncp  WHERE  SCouraaNumbar.FK  -  ‘  8  slrlnpon  &  ‘  AND  AMOS.FK  .  *  & 
sWnpuG  &  ■  AND  Lava)  o  ‘  &  inflnput  4  “ 

435  SatracLDa*rad-<l)i.OpanRBcordsal(*SQU 

436  ntacLDasitad. EOF.  Fab* Than 

437  racLDaauadLMovaLast 

438  racLDastradMovaRrat 

439  Endll 

440 

441  ‘Cycbtvoughal  ha  marinas 

442  For  j .  1  To  racM*iiiw.R*cordCount 

443  '  Yartd  control  tsrrporarily  to  Windovta 

444  OoEvanb 

445  'Chock  to  sas  if  marina's  PEF  is  an  opan 

446  HraclObrina’PEFo’OO’Than 

447  booPEF  -  Fab* 

448  l(racPEF.E0F.ftJso1hon 

**9  ‘  Chock  to  too  it  marina's  PEF  is 

associated  wih  tha  school 

450  For  k  >  1  To  racPEF.  RacordCount 

If  r8cPERPEF_FK  .  racMarinalPEF  Than 

452  booPEF  .  Trua 

453  End  If 

454  racPEF.MovaNaii 

455  Nwdk 

45$  racPEF.MovaFmrt 

457  Endll 

458  Eba 

459  booPEF -Trite 

460  EndM 
'  Compata  marina  attiibutos  vah  tw  mandatory 


propartias 


mandstory  propartias 
467 


If  booPEF.  TnjaThsn 
'Chock  for  mandatory  (undan»ntBl  propartias 
K  racFMarxtEOF  .  Ftiso  Thtn 
Fork.  1  To  racFMandRscordCoirl 
'■  isb  must  prova  Inia  lor  Sw 


If  booMsodProp  -  Tnjo  Than 
If 


R*idPropTaal{tacFMand!FPropar1yNKTte_FK.  racMarinafSSN^PK)  -  Faba  Than 

469  booMandProp  .  F^ 

470  Endll 

471  racFMsndMovaNsad 

472  End  If 

473  Nastk 

474  racFMsndMovaRrsI 

475  End  If 

476  ‘Chock  for  mandatory  logicat  propartias 

477  If  booMarxfhop- Trua  Thao 

478  If  racLMandEOF  .  Faba  Than 

4W  Fork.  1  To  racLMand  RscocdCount 

'  Al  tosb  mjst  prova  tiua  for 


ho  mandatory  propartias 
481 


If  booMondProp  .  Trua  Thao 
If 


LogPropTa*t(racLMandlLPropartyNarn*_FK,  racMarina!SSfU»K) .  Fab*  Than 
483  booMantf^rop  .  Faba 

4«4  Endlf 

485  racLMandMovaNsxt 

486  Endll 


4664 

4665 

4866 

4867 


4670 

4671 
4872 

4673 

4674 

4675 

4676 

4677 
4878 
4679 


4564 

4585 

4566 


4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 
4561 
4582 


4587 

4588 

4589 

4590 

4591 


4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 


4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 
4837 


4640 

4641 

4642 


racLMand  MovaRrst 
Endll 

II  booUandProp  •  Trua  Than 
intFit  - 1 
Endlf 
End  II 

'  Rsoat  booMsindProp  for  naxl  chock 
booMandProp  -  Two 

'  Compara  marina  attributes  with  tha  dasirad 

497  llintRt>0Than 

498  ‘  Compara  viih  dssirad  lundamantal 

499  If  rrtoFDasiradEOF  .  Faba  Than 

500  Fort.  1  To  racFDasrradRacordCount 

501  II 

FundPtopTast(facFDaairad!FPropartyNBrr»_FK.  r*cMarinalSSN_PK) .  Trua  Than 

502  Satect  Casa  racFOasiradl  Laval 

503  Casal 

504  intFit-inFit  + 

505  Ctua  2 

506  iniRt .  inifit  * 

507  Casa  3 

506  intfit .  iniFit  ♦ 

509  Casa4 

510  iniFit .  jnFit . 

511  Casa  5 

512  irrtRt .  inifit  ♦ 

513  Casa  6 

514  inifit.  mFit  + 

515  End  Saloct 

516  Endlf 

517  racFDastradMovaNsd 

516  Max!  I 

519  t«cFDa3irad.MovaRrst 

520  Endll 

521  '  Compara  wh  dasirad  logical  propartias 

522  II  rocLDasir»d.EOF  .  Faba  Then 

523  For  1 .  1  To  racLDasrradflacordCount 

524  If 

RfidPropTasl(facLDaairad!FProportyNnma_FK.  racMarinalSShLPK)  -  True  Thao 

525  Salact  Case  racUbsi  rod!  Laval 

526  Casa  1 

527  intfit.infit  + 

528  Casa2 

529  intfif  -  inifit  + 

530  Casa3 

531  intfit » infit  ♦ 

532  Casa4 

533  intfit .  inFit  * 

534  Cases 

535  inifit.  inFit  + 

536  Casaa 

537  intfit .  inFit  + 

538  EndSalacI 

539  Endlf 

540  tacLOasiradMovalMsd 

541  hbxll 

542  raclDasiradMovaFirst 

543  Endlf 

544  End  If 'll  intfit  >0  Than 

545  End  II ‘II  booPEF -True  Thao 

546  racMarOsRLEdt 

547  ’  If  ha  rnarina's  PEF  is  rwt  satisfud  by  ha 
school  or  he  marina  does  not  irwot 

548  'al  ha  mandatory  propartias  for  tha  school,  a 
scora  of  asro  »  osagnad 

549  'Ohanwsa,  aite)ua>»1i*assiyiadAacor*of 
1  indcates  ha  school  had  no 

550  '  dssimd  propartias  or  ha  marina  dd  not 
saisfy  any  of  ha  dsatrad  prof^as. 

551  '  Later,  1  is  subtracted  from  hose  scones  and 
rspfacad  wih  a  smal  vakia  ealad 

552  'apsibn.  Ihaopsiionisuaadtopravanta 
dusion  by  zero  probbm. 

553  racMarChRURlness  .  InFit 

554  rscMarCbRlLJpckte 

555  racMarCbRlMovaNnd 
‘  Pravanbceimting  ha  anirias  Mih  ZMos  stnca 


'  Sums  up  al  ha  fib  and  gab  a  count  of  how 

many  fib  hare  are 

558  II  inifit  >  0  Than 

559  'The  1  is  subtracted  from  ho  inFtt  SCOT* 
and  rapbcad  vih  a  smal  opailon 

■ngSumOIRt  -  sngSumOfRl  ♦  CSngfinFit  - 1) 


•NAME? 

561 

562 

563 


566 

567 


570 

fitoassvaktes 


sngCounl.  sngCount+  i 
Endll 
intfit .  0 

racMarina.MaMsNsd 

Nnelj 

'  PrMnI  dvidng  by  zero 
II  sngCount>oThan 
sngAiQRt-  angSumOfFit/  sngCount 
rscMarCbRlMovafirst 

‘  L^date  ha  TEMP_nT  bbla  wih  ho  notmalzad 


572 

573 


For  k.  1  To  racMarCtaRtRacordCount 
If  lacMarCtaRCFibtess  >  0  Than 
racMarCbRlEdt 

574  ‘  Dte  1  b  subtracted  from  ha  stored 

fitness  score  and  rapbcad  wih  a  antel  apoiion 

575  angfihass  -  CSng(racMBJCbfieFttnaas  - 
1) .  mgEptUon 

576  rscMarOsRtlRhass . 
antfsngMsndfilVakM  ♦  sngRtoass  *  mlNbrmalFaetor  ‘  sngDasiradWai^t  / 

577  tacMsdasRtLJpdate 

578  Endlf 

579  lacMarCbRtMovafibX 

580  Nulk 

581  ’  Insert  ha  TEMP_RT  records  into  ha 

582  Appfcatian.Sap36on  ‘Confirm  Action  Quarias'. 

583  d>1.E»cute  ‘INSERTINID  MAFLCLS_RT  ( SSN_FK. 
Marinalndaz,  OasalndMcFK.  Rheas)  SELECT TEMP_RT.SSN.FK. 
TEMP.FIT.Marinalndasi  7EMP_RT.Ctesslnd*oi_FK.  TEMP  FIT.fihass  FROM 
TEMP_RTWHERE  TEMP_RT.fihaia  >  0:* 

AppScationSalOption ‘Confirm  Action  Otefia*', 
stiCtassNjmbar-racClossISCourseNurTfcer  FK 
strAMOS  -  r*cCbss!AMOS_FK 


585 


587 

586 


&tdlf 


r*cMsrine.MovaRrsl 
II  racCiass.EOF  .  Faba  Than 
ss«  racCbss-MovaNajd 

591  Endlf 

592  Endll'llr*eMBrino.RacordCount>OThan 

593  End  ir  If  (recC»asa.SCoorsaNjmbar_FK  -  stCtaasNumbor)  And 
(racClass.AMOS_FK  -  strAMOS)  Th* 

594  Nadi 

595  Endlf 


84 


4680  S96 

4881  Se7  racMarCbntClose 


46B6 

4687 


4602 

4693 

4694 


4607 


4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 


4758 

4759 

4760 

4781 

4782 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 
4796 
4796 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 
4806 
4809 


S96 

599  •Pr8p»»t»AM=T-fdh)1.(Jatditofll8 

600  ApfjicafiaaSalGpSon  ■Cortifm  AcSon  Owi«W.  F«he 

601  <fc1  .Eiecote  ’D^ETE  *  FBOM  TEMPJTT;* 

602  ‘Specify  Ilwruniw  of  nwlnws 

603  dbl  .EyocxM  ’INSERT  INTO  TEMP^FIT  (SSN.RC.  MerinoIntJex)  VALUES 


(■paf«mWaMarin« '  &  rocMartne.RecofdComl  &  •);’ 

604  (fcl  Ewcute  -INSERT  INTDTEMP.FIT  (SSN.n<)  VAH€S  f;):* 

605  ‘Specify  ftefwrtJerdecfxjolclKso* 

606  dbl  .Ewcul*  -INSERT  INTO  TEMP_FIT  (SSN_n<.  Merinelndex}  VALUES 
Cparim  tataCkssos *  &  recClass.  FtoccnjCcuH  &  *);- 

607  A1  .EjBCUie  -INSERT  INTO  TEMP_nT  (SSN_FK)  VALUES  {l');- 

608  ‘  Specify  Ihe  class  derrand 

609  db1.E*«AeTNSERT  INTO  TCMP_ITr(SSN_FK)  VALIAS  fpaxarnctoflwnd 

610  dbl.Ejaojte  -INSERT  INroTEMP_RT(  aasslndan_FK.  Fitness  )  saECT 
CLASS.CIassInde*.  CLASS.Ojota  FROM  CLASS:' 

61 1  dbl  -Eaecute  INSERT  INTO  TEXffi>_FIT  {SSN_FK)  VALUES 

612  ■  Specify  the  dass  penalty 

613  dbl  .ExbcU»  insert  INTO  TEMP.FIT  (SSN_FX)  VALl«S  Cparam  penally 

614  dbl  .Ewaito  -INSERT  INTO  TEMP.FIT  {  OassInetoLEK,  Filness )  SaECT 
PENALTY.OassIndenLFK.  PENALTY.  Penaly  FROM  PENALTY;* 

615  <tol.E3«aA» -INSERT  INTO TEMP_FiT(SSN_FK)  VALUES  H;’ 

616  DoCmd  TranslofTexi  ac£jq»ortB»d,  -fttnl.OalB  E)^t  Specificabon'. 

TEMP  fit,  -C:\flD»*i\ArTpDa6iVAii1.<Jar 

617 

618  ‘  Prepare  ne  AMPL  rOrC.dat  data  file 

619  dbl  .Ewajle  'DELETE  *  FROM  TEMP.HT:’ 

620  dbl  .E»cute  -INSERT  INTO  TEMP.FTT  SaECT  *  FROM  MAH.CLS_HT;* 

621  dbl. Ewcula -ALTER  TABLE  TEMP_Frr  DROP  CCXUWISSN^;- 

622  dbl  Execute -ALTER  TABLE  TEW’.FTT  ADD  COLUMN  SSH-FKtaxt- 

623  dbl  .EjbojIo  -insert  INTO  TEW.FTT  (SSN_FK)  VALl^  (Traram  filness 
detaiJO:-');- 

624  <±>i.&a>cute‘SaECT-|NTOAMPL.TEMPFflOMTEKf»_FlTORDERBYSShLFK 

625  <b1  ,E»aJtB-l^SEHT  INTO  AWT^TEMP(SSN_FK)  VALUES  Hi" 

626  DoCnUTransfecTert  acEiportRwf.  'Rdnne.Dah  Er^iort  Spodficabon’, 
AMPL_TEMP,  *C;\K»*i\AmplOah\rdne.dar 

627  AppCcabcaSelOpban  -Cortirm  Action  Queries-.  True 


629  recMarine.Ctaae 

630  recCta3S.Cloee 

631  ‘  Ftomme  be  created  tabtos 

632  dbl.Ejecute -DROP  TABLE  TEMP_Frr;- 

633  dbl  .E»cule -DROP  TABLE  AMPL_TEMP;- 

634  <b1  .E»cul*  -Ofop  Tabte  TEMP.FiTl 

635  dbl.Cbse 

636  ‘  Renxwe  be  metor  from  be  steks  bar 

637  narftefVal  -  SysCrnt^acSysCrndHernoMeMeter) 

639 End  Sub 

640 

641 

642Pub8c  Sub  Quot»_Penally(\wUOateBo«xl  As  VarianO 

643  DimiarOala 

644  Dimrec  As  Recordset,  reel  As  Racordset 

645  Dims»SCLAsSHno.saCorwBr1  AsSbng 

646  Oimi  As  bteger 

647  Dim  dbl  As  Database 
646 

649 

650  '  Create  rww  dass  quota  file 

651  AppicatortSetOpeon  'Ylonfirm  Action  Quaries*.  Fabe 

652 

653  ‘  Detoto  be  oU  penaly  and  Class  ties 

654  DoCrrd,  AsvSQL  'OaEIE  •  FROM  PENALTY- 

655  OoCiT«tRjnSQL-OaETE- FROM  CLASS' 

656 

657  ‘  Query  generates  new  ckss  i^joto 

658  DoCnid.SeWafiiings  (False) 

658  DoCmd  OpenOuery  '{^NeaCkJota' 

660  OoCrtilSeWafTiings  fTrue) 

661 

€63  DoCfid-^nSOL-DaErE -FROM  CLASS  WHERE  CkJota<-0;- 

664 

665  AppIcaBon-SetOpBon  -Confirm  AcSon  Queries’.  True 

667  ‘  Create  index  for  be  dass  table  and  (cnral  be  FY  lor  RD3  fib 

668  Selrbl  >CiareniDbO 

669  s8Sa---SaECTCLASS.*.SCH00LPeredtyFactaf  FROM  SCHCXXIMER  JOIN 
CLASS  ON  (SCHOCUAMOS.PK  -  CLASS.AMOS_FK)  AND  (SCHOOL  SCoursoNunber_PK  - 
CLASS.SCour3aNuTbof_FK);- 

670  Set  fee  ■  it>i.Qpannew<tet(s»SQL.  dbOpenDynase^ 

671  rac.MmnLast 

672 

673  If  rec.FbcordCaur<>OThan 

674  rec.MmeFirst 

675  For  I  *  1  To  rec.RscordCount 

676  rec.Edt 

677  reclCbssIndax-l 

678  ‘  Converts  be  fiscal  year  b  a  taa  (SgltnLxrber  for  R03  fib 

679  sKlomert  CSt(rec1  FTscalYear.PK) 

680  saConvert- B^sbConwert,  2) 

681  reclFlacarTear_PK  -  Clnl(sbConver1) 

682  rec.Updbto 

683  rec.Moventaxi 

684  Nexll 

685  End  It 


687  -Creab  penally  fite 

688  ‘First  u^b  the  Index  from  tha  CLASS  tibb 

689  AppIcatioaSelOpton  -Confirm  Aclon  Quaries',  False 

690  DoCtrxLOpenOusry  -qyyPenalylndear 

691  App>cation.SelO|>«on  -Corfitm  Aclon  Queries*.  True 

692  ‘Creata  a  record  set  of  the  PENALTY  bbb 
683  saSQL- -saECT -FROM  PENALTY- 

694  Set  reel  « <t>1  .OpenRBcordsel(iasaL.  rbOpenOynasaQ 

695  II  lsNJI(v»UDBte6aaid)  -  False  Then 

696  '  Format  bis  risb  lor  lae  In  ba  OataDifI  lindlon 

687  varUOataBoisid  .  FanT«l(«arUOatoBQun(t  -ma/aVM-) 
Moduto;  modFibeaOabrtTinalon  P^;  16 

698 

699  If  rec.RecordCotbl  >  0  Then 

700  rec.MoveFtrst 

701  For  i  «.  1  To  rec  .RecordCrxnt 

702  racI.Edt 

703  ‘  Get  report  dab  from  class  record 

704  vsrOab  -  reelReporiOab 

705  ‘  Format  be  report  dab  for  use  in  be  DatoOiff  timcSon 

706  vwDab  -  Fdrmal(vwDato.  -tHt/MItin 

707  ‘Mato  be  penally  the  difference  babnean  be  two  values 

708  *  This  makes  be  perudly  tnear,  based  on  dab 

709  recllPenally  «  OabDiflCcr.  varOab.  varUDabBound)  * 
racIPenaUyFactor  \  24 

710  recl.Updab 

711  rec.Mawhb)d 

712  recLMowNwa 

713  Nadi 

714  End  If 


4810 

4811 

4812 
4613 

4814 

4815 
4616 

4817 

4816 

4818 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 


4850 

4851 

4852 

4853 


4857 


4860 

4861 

4862 

4863 

4864 


715  End  If 

716 

717ErxJSri) 

718 

719Pibfc  Sub  DebbTabbO 
7200n  Enor  QoTo  OdobTabta.Err 

721 

722  Dimdbl  AsDabbase 

723 

724  Saldbi -CtarerilDbO 

725  OelebbebbbilHakeadyexIsb 

726  dbl  .TabtaDefs  Deleb  -PERCENTAQE- 
7270abtaTaUe_Ebt 

728  &dtSub 

729 

730OebbTabto_Err; 

731  Setect  Case  Efr.Marber 

732  'TNsnunter  occurs  if  be  PERCENTAGE  tabta  does  not  exist. 

733  Case326S 

734  Resume  DebbTabb_Exlt 

735  CaseEbe 

736  Ms^oxErr.Descriplon 

737  flastane  OotabTabta_E)dt 

738  Rasume 

739  End  Select 

740 

741ErxlSub 

Modile:  modlmporlEipoflOato 
Code 

1  Atbbub  VBJtone  ■  'modliTpcrlErporlOab- 

2  Option  Cempare  Oabbaso 

3  Option  Expidt 

4 

5  PiJ5»cSubliipor«NA() 

6 

7  OoCrndTranslerTeja  aclrrporlFisBd,  -BNAExsacr.  '(yyBNAEAacr. 
C:\ToBeRdft*Rbi0ab\8NAM 

8 

9  EndSub 

10 

11  PibicSublnporlROlO 

12 

13  DoCmd-TfansfarTexl  acInporEoBd.  ’RDI*.  -(^yMarine*. 
C:\ToeeRdtTM%bnOab\RD1  M 

14 

15  EndSti) 

16 

17  Pii*eSiblfTporfToTafgeLMOS()’(AcllQnQuervAsSHng) 

18 

19  CtarenObO.Ewnjb  INSERT  WTO  TARGET_MOS  ( CouraeNjmber.PK. 
TargedlAOS  PK.  MCC )  SELECT  DISTINCT  BNA^EXTFWCT.CoursaMiTt>er_PK. 
8NA_EXTHACT.TafgetM0S_PK,  BNA_EXIRACT.MCC  FROM  BNA^EJORACT 

20 

21  EndSub 


4866 

4867 

4868 


4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 


4864 

4885 

4886 

4887 


4891 


4895 

4896 

4897 


4902 

4903 


4908 


23  PibicSubArrptnxsiilO 

24 

25  OoCmd-TranslorTaja  acInporCelirv  'Airpl^RestlT.  "AW^RESULP. 
C:VraBaRiMAnpCBb\rdmoU.  True 

26 

27  EralSrb 

28 

29  PdrfeSubAmpOataO 

30  Dim  d)l  As  Osbbase 

31 

32  SetdJi-CurreoEbO 

33 

34  ‘  Prepare  be  AMPL  rdndal  dab  fib 

35  AppIcabonSetCpIion  -Confirm  Aefion  Queries'.  False 

36  <bl  .E»cub  -CREATE  TABLE  COhBTANIS  (Consttnbhmo  TEXT,  intVabe 

37  ‘Specify  be  fit  constant 

38  dbl  .E»eub  INSERT  INTO  CCNSTAMIS  (ConsbnWame.  inWabe)  VALUES 
(‘pvam  fiConstanl  ‘  &  FarmsffrmPreperaAndEiecubSoNerlcrrbFit  & 

39  rbl  .E»eub  INSERT  INTO  COhBTANTS  (ConstMiName)  VALUES  n;' 

40  'Specify  be  fit  contort 

41  (bl  .Erecuta  TNSERT  INTO  CONSTANTS  (ConsbnName.  InNabe]  VALUES 
('param  inconstant  '  8  RonrBlfrmPrepareAndExecubSoNerjcmbFii  & 

42  «t>l  Eaacub  INSERT  INTO  C08BTANTS  (ConstanWairti)  VALUES  m:- 

43  DeCmtTranalerTad  acEiporiraed.  -RdiuOab  Ej^ort  Specificaloo*, 
CONSTANTS.  ‘C:\Tc)eeRdTAAmpDab\rtbi.dar 

44  ApfdcalonLSetDpllon  TOonlirm  Action  CMeries-.  Trua 

45 

46  ‘  RemM  ba  creabd  bbb 

47  it>1  .EiBCUb  -DROP  TABLE  CONSTANTS;* 

48  dbl.Ctaae 

49  EndSd) 

50 

51  PUMb  Sub  &poriRO30 

52 

53  DoCmdLTranslerTttA  acEiporFlxed.  *EjqxylRD3Fib’.  -qfyR03Flta-, 
C;\TaeeROIARdnOab\RD3.txt 

54  AppicaboaSetOpHon  -Conllrm  Aetton  Quaries',  False 

55  DoCmcLOpeniQusry  *qryUpdabAssi7vnBt<Type' 

56  DaCmd.OpenQuery  -qryAppendResdrToAssigvnenr 

57  Applcat)on.Se<Cpllon  -Confirm  Aefion  Queries'.  True 

58 

59 

60  EndSd) 


4909 

4810 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 


4927 

4928 


4931 

4932 

4933 

4934 

4935 

4936 
4837 

4938 

4939 


61 

62  PtbicSibArchfveDatBO 

63 

64  Dim  wTodaysOata 

65  OimskSGLAsSking 

66 

67  vwTodaysOab  ■  Dab 

68 

€9  ‘  Fonnal  be  dab 

70  varTodaysOab  -  Formal(wTodaysOab,  ^ryyymTKld') 

71  ‘Convert be  dab lnk> a nurber 

72  wTodaysOab  -  CLng(v«fTodaysOab) 

73 

74  '  Archive  be  appte^  dab 

75  OoCnxLRjiSGL -INSERT  INTO  MARrCJkSSIGhLAfCHVE  saECT  DISTINCTRCW 
MAnf£.SSN,PK.  MARSNELName.  MARI8E.lnlfials.  MAHH£.Gendar. 

MARHE.Dri«rtJcenso.  MARtftSOI.  MARNETraWngCctrpany. 

MARf«.MOFD_Code,  MAHNE.PINbTber.  MAHhE.CMientop.  MARINE  GradOab. 
MARTC-SMimOuit.  MARI8E.OM9fion.  MARINE.  Age.  MARINE  Education. 
MARf£.Higf«sMab.  MARNEManWAbilV.  MARfC.CbarancaEst. 

MARfC.Hai^  MAFUNEVIsion.  MARtNECdcrParcepfoa  MARNE.EthnicGrtXb. 
MARINEOLA8,  MARINEEDFT,  MARWEDiskiclCode,  MARNETyping.  MARft.EL 
MARINEMM.  MARJ8C.CL  MARNE.GT.  MARNE.Conponent  MARINE  PEF. 
MAnNE.avlCorMclkxi,  MARI8E.RSN  MARINE.AFAOBO, 

ASSIGNtCNT.CourseNunrber.  ASSIGmENT.AMDS.  ASSlGTMENT.MCC. 
ASSIGrMENT.CbssNfnber.  ASSIGNMENT. ReportOab.  ASSfGhMENT.FtscaTyear. 
ASSIGhWENT.Asby¥nen(rype  FROM  MABhE  IFNEH  JOIN  ASSfChMENTON 
MARME.SSN_PK  .  ASSIGN8«Nr.SSN.FK  WHERE  ASSIGNMENT. BeportOata  <  •  & 

76 

77  ‘Oebb  be  appicabbtob  from  ba  Marine  and  Assigranenitabias 

78  DoC(nl.Rai90L  -DELETE  DiSTlNCTROW  MARUC.',  ASSIGFMENT.*  FROM  MW8NE 


85 


lyiiytii 


78  DoCmlRsiSQL  'OELOE  OrSTlNCmOW  MARINE.*,  ASSIGMVENT.*  FROM  MARINE 
IM«R  JOIN ASSIGTWENTCN  MAR1NE.SSN.PK  -  ASSIGrW0jr.SSr<.FKVV HERE 
ASSIG^ME^^'.RsponOato  <  *  &  wTodaysOsto  &  *■ 

79 

SO  Selset  Case  Ms9^o]<‘Deloto  unassigned  Mihn«s  from  tMdaEabftsor, 
vbYesNo  vbOjeston,  'Oelela  Unassigned  »tein«0 

81  CaseS'llyesiscfcked 

82  ‘  Oeletos  entries  in  Mirine  table  without  a  correspon^ng 
entry  in  the  Aasagnmont  table 

83  DoOrilflisiSQL 'DELETE  DISTINCTFCW  MARINE.-,  ASSlG7*CNr.SSN_FK 


4949  FHOMMARINE  LEFT  JOIN  ASSIGhMENTONMARINE.SSN_PK- ASSIGMi«NT.SSN  FK 

4950  WHERE  {((ASSIGNMENr.SSN_RO  Is  Nui)):* 

4951  84  CaseT’ltnoiscicked 

4952  85  ‘Noacfon  taken 

4953  86  End  Select 

4954  87 

4955  88  EndSub 


86 
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